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Aprender BASIC é um pouco como aprender uma língua: 
não adianta nada ficar estudando horas e horas de gramática. 
O importante é a conversação! 

Obviamente a gramática se torna importante numa segunda 
fase, depois que a competência linguística foi adquirida instin- 
tivamente. 

No computador, o equivalente à conversação consiste na 
digitação de programas já prontos e na sua posterior adaptação 
através de um processo de tentativas, experiências e análise. 

Neste segundo volume do COLEÇÃO DE PROGRAMAS PARA 
MSX, tentamos preencher esta necessidade. 

O livro pode, então, ser usado em 3 diferentes níveis de 
profundidade. Numa primeira abordagem ele pode ser encarado 
como uma fonte de software impresso. O usuário principiante 
digita os programas e se limita a utilizá-los. Para este leitor, 
nos preocupamos com o tipo de programas incluídos neste vo- 
lume: foi dada mais ênfase a aplicativos e utilitários, apesar de 
não termos esquecido os imprescindíveis jogos. 

Como subproduto deste processo, o leitor acaba adquirin- 
do cada vez mais familiaridade com a máquina e seu teclado e 
incorpora, de maneira instintiva, uma série de técnicas e truques 
de programação. 

Num nível mais profundo, o leitor que já tem alguma fami- 



liaridade com programação, estuda a análise que é feita após 
cada listagem para perceber as estruturas utilizadas e incor- 
porar cada vez mais conhecimentos sobre o poderosíssimo 
BASIC MSX. 

Finalmente, num nível mais profundo ainda, temos o leitor 
que se predispõe a alterar os programas introduzindo aperfeiçoa- 
mentos, adaptando-os às suas necessidades e personalizando-os. 

Além de tentarmos atingir uma vasta gama de leitores com 
relação ao nível de familiarização com o BASIC e a máquina 
em si, tentamos também satisfazer um largo leque de usuários 
no que se refere ao campo de interesse. 

Para o ADOLESCENTE temos os jogos de ação e os de inte- 
ligência. Para desfazer um pouco a imagem de "video game de 
luxo" que o MSX injustamente adquiriu, preferimos dar mais 
ênfase à inteligência, com os excelentes, entrê outros, LABI- 
RINTO e OTHELLO. 

Nos jogos de ação, preferimos discutir detalhadamente a 
montagem do ISCAI JEGUE (paródia do divulgadíssimo SKY 
JAGAR ) pois achamos mais importante desenvolver a habi- 
lidade criativa do adolescente, do que transformá-lo num sim- 
ples "jogador". 

Para o PROFISSIONAL que pretende utilizar seu MSX de 
uma maneira mais "séria", temos uma seção de aplicativos, 
dentre os quais podemos citar a MATEMÁTICA FINANCEIRA e o 
ESTATÍSTICA. 

Para os PROFESSORES, preocupados em se familiarizar com 
esta nova e revolucionária ferramenta de ensino, temos progra- 
mas didáticos que exemplificam algumas das quase infinitas 
aplicações do computador na escola. 

Finalmente, ao PROGRAMADOR que deseja utilizar os re- 
cursos do MSX para produzir seu próprio software, dedicamos 
a seção de utilitários, onde oferecemos "programas-ferramen- 
tas", alguns dos quais foram desenvolvidos por nós para uso 
interno da editora. 

Encerramos estas linhas com um alerta aos principiantes: 
diz um velho ditado que "os programadores, as virgens e os pa- 
raquedistas só podem errar uma vez!" Por isso, ao cometer 
algum erro, ao invés de "começar tudo de novo", gaste um pouco 
de seu tempo tentando descobrir onde e porque ele foi come- 
tido. Assim diminui-se a possibilidade de cometê-lo de novo. 

Dentre os erros mais comuns, existem os de digitação, prin- 
cipalmente na confusão dos símbolos: O e 0 ; 8 e B ; 

í e I ; i e 1 . 


Bom trabalho! 



ISCAI JEGUE ^ 

Num livro como este. as lislagens cie programas são Ião 
importantes ciuanto o próprio texto. Assim sendo um dos cui- 
dados que foram tomados foi o de se obter a listagem com 
uma impressora ligada ao computador, no qual o funcionamento 
do programa foi testado. 

Üesla forma reduzimos ao máximo a possibilidade de erros 
de transcrição As listagens foram tiradas cm 40 colunas, de ma- 
neira a assumirem o mesmo aspecto que têm na tela do MSX 
quando se usa a SCREEN 0. a mais utilizada para edição de 
programas. Isto facilita a contagem de caracteres repetidos e 
permite uma primeira "cbeenqom" por parte do digitador, pois 
uma eventual diferença no alinhamento significa o esquecimento 
de algum caractere. 

Para os que lèm um llülülf ou EXPERT primeira versão, 
aconselhamos comandar 

WIDTH A<ò 

pois estes aparelhos, ao serem ligados, apresentam uma 
SCREEN ü com 39 colunas. 

Nesta primeira parte do livro, apresentamos um programa 
que deve ser digitado aos poucos, analisando cada trecho e ten- 
tando entender o porquê de cada comando e instrução. O leitor 
deve entender que. além de ser uma fonte muito barata de 
software, um livro como este representa, principalmente, um 
valioso instrumento de aprendizado. 
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INSTRUÇÕES 

Um dos recursos mais potentes do MSX para elaboração 
de jogos de ação, é a possibilidade de se utilizar a SCREEN 1 
com caracteres redefinidos. O programa apresentado a seguir é 
uma caricatura de um dos mais belos jogos que usam um recur- 
so semelhante a esse: o SKY JAGAR (ou COLUMBIA). Vamos 
estudar passo a passo os estágios para sua elaboração. 

Antes de mais nada é necessário uma idéia. É a partir dela 
que desenvolveremos o jogo. Vamos usar a mesma idéia do 
SKY JAGAR. isto é. a tela (SCREEN 1) deverá "rolar” para 
baixo e o jogador deverá controlar um jegue (uma nave. no ori- 
ginal), desviando-se dos obstáculos (buracos, mata-burros e co- 
bras) e, se possível, destruindo-os. 

O controle do jegue será feito através das setas ao lado 
direito do teclado. Para eliminar obstáculos à sua frente, o jóquei 
que montar o jegue deverá usar a barra de espaços. 

Os demais detalhes do jogo irão surgindo naturalmente du- 
rante a sua elaboração. 

Para começar, vamos introduzir e analisar a rotina que faz 
a tela girar na vertical, de cima para baixo (figura 1.1). Na 
verdade, não é toda a tela que gira. A última linha, na parte 
inferior do video, fica imóvel, reservada para apresentação de 
mensagens permanentes. Você entenderá o porquê disso mais 
adiante. 

Figura 1.1 — Giro vertical da SCREEN 1 

1.000 ' Rotina para "ROLAR" a 

i 0 i 0 ' SCREEN i para baixo: 

í 020 CLEAR 200 , &HC000 
í 030 FOR I = &HC000 TO &HC039 
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1040 READ X4 

í 050 POKE I , UAL < /, &H ,/ +XÍ ) 

í 060 NEXT I 

1070 DATA F3,2i,BF,ÍA,li,DF,iA, 0E 
1080 DATA 16,06,20,7D,D3,99,7C,D3 
1090 DATA 99,F5,F1,DB,98,F5,7B,D3 
1100 DATA 99,7A,F6,40,D3, 99 , Fi , 00 
1110 DATA D3 , 98 ,2B,iB,10,E5, 0D ,20 
1120 DATA E0,97 , D3 , 99 , 3E , 58 , D3 , 99 
1130 DATA 06 ,20,78, D3 , 98 ,00,10,FB 
1140 DATA FB , C9 
1150 DEFUSR0=&HC000 

A parte principal dessa rotina é um programa em linguagem 
de máquina, cujos códigos estão inseridos em hexadecimal nas 
linhas DATAs de 1070 e 1140. 

A linha 1020 reserva 200 bytes para variáveis "strings" e 
fixa o maior endereço que o programa em BASIC poderá usar. 

O laço entre as linhas 1030 e 1060 lê os códigos hexade- 
cimais e os insere a partir do endereço &HC000 da RAM. O en- 
dereço de execução dessa rotina e definido peia linha 1 1 50. Cada 
vez que a rotina em linguagem de máquina é executada, ela gira 
a SCREEN 1 uma linha para baixo (com exceção da última linhal). 

Para testar essa rotina, acrescente ao programa as linhas 
mostradas na figura 1.2. 

Figura 1.2 — Teste do Giro Vertical da SCREEN 1 


1160 ’ Teste da rotina 

1170 COLOR 9,4,7 : SCREEN 1 : KEY OFF 

1180 LOCATE 32*RND ( 1 ) , 0 

1190 PRINT "x" 

1200 K=USR0 ( 0 ) 

1210 GOTO 1180 


A linha 1170 define as cores de frente, fundo e borda; 
seleciona a SCREEN 1 (pois é nela que a rotina em linguagem 
de máquina produz o movimento vertical) e apaga as mensagens 
das teclas de funções na parte inferior da tela. 

A linha 1180 "sorteia" uma coluna na parte superior da tela 
e a linha 1190 imprime um "X" nessa posição. 
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Logo a seguir, na linha 1200. a rotina em linguagem de má- 
quina é executada através da instrução K = USR0(0), fazendo a 
tela toda "rolar" uma linha para baixo. 

O comando GOTO na linha 1210 faz com que o processo 
seja repetido mdeíimàamente a partir da iinha 1 1SO. 

Antes de prosseguirmos, vamos otimizar um pouco o que 
já fizemos. 

A impressão de caracteres no video pode ser feita por 
PRINT, como no teste da figura 1 .2, ou por um VPOKE na VRAM. 
A segunda maneira é significativamente mais rápida que a pri- 
meira e, em jogos de ação. a velocidade é fundamental. Vamos, 
portanto, tentar usar o VPOKE ao invés do PRINT. 

A imagem da SCREEN 1 é armazenada entre os endereços 
6144 e 6911 (inclusive). O primeiro desses endereços (6144) 
contém o código do caractere apresentado no canto superior 
esquerdo da tela. Veja na figura 1.3 como a SCREEN 1 é ma- 
peada e armazenada na VRAM. 


Figura 1 .3 — SCREEN 1 


6144 

6145 



6911 1 I 

Portanto, para imprimir um caractere na linha superior da 
tela. devemos "vpokeá-lo" entre os endereços 6144 e 6144-f31. 
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A sintaxe do VPOKE é: 


VPOKE endereço, código do caractere 

O código do caractere "x” é i20. portanto a instrução 
VPOKE 6144 + 32°RND(1 ),120 resolve o nosso problema. 

Experimente eliminar aS linhas 1188 e 1190 e substituí-las 
peia linha: 

i í 80 VPOKE 61 44+32#RND ( i ) , í 20 

Podemos usar o programa do jeito que ele está para pro- 
duzir os obstáculos (representados pelo "x"). O caráfcter “X", 
entretanto, não se parece nem um pouco com um obstáculo. ■ 
Vamos substituí-lo pelo caractere "Í2" cujo código é 234. 
Substitua a linha 1180 por: 

1 1 80 VPOKE 6144+32«RND(1 ) ,234 

Agora, já temos a tela girando para baixo com os obstá- 
culos. Só falta o jegue correndo. 

Provisoriamente, podemos usar o caractere “4" cujo código 
é 216, para representar o jegue. 

Insira a linha: 

i í 90 VPOKE 6640,216 

O jegue já está na tela deixando atrás de si um rastro de 
sujeira, que posteriormente iremos eliminar. 

Vamos agora dar-lhe movimento. 

Elimine as linhas de 1180 a 1210 e insira as linhas mos- 
tradas na figura 1 .4. 

Figura 1.4 — Movimentando o jegue pela tela 


1180 DEFINT A-Z:X=6640 
1190 VPOKE 6i44+32*RND(i> ,234 
1200 ’ hov i ment acao do jegue 
1210 C=STICK ( 0 ) 

1220 IF 0 = 6 AND C<=8 AND <X~i> MOD 32 T 
HEN X=X~1 

1230 IF < C=i OR C=2 OR C=8> AND X>6i 76 T 
HEN X=X-32 



í 240 IF 0=2 AND C<=4 AND (X + í) MOD 32 T 
HEN X=X + i 

í 250 IF 0=4 AND C<=6 AND X<6848 THEN X= 
X+32 

í 260 K=USR0 ( 0 ) 

1270 VPOKE X , 216 
1280 GOTO 1190 


A linha 1180 define todas as variáveis usadas no programa 
como inteiras (isso aumenta um pouco a velocidade) e atribui 
à variável X o valor 6640 (posição inicial do jegue na VRAM). 

A linha 1190, como já sabemos, gera os obstáculos no topo 
da tela 

A linha 1210 verifica as teclas das setas à direita do tecla- 
do através da função STICK(O) 

As linhas seguintes alteram o valor da variável X, de 
acordo com a tecla de seta pressionada. Para irmos para a es- 
querda. basta subtrair uma unidade de X. Para irmos para a di- 
reita, basta acrescentar uma unidade a X. Para subirmos uma 
linha na SCREEN 1, temos que subtrair 32 unidades de X. Para 
descermos uma linha, devemos fazer o contrário, isto é, somar 
32 unidades ao valor de X. 

Os operadores lógicos OR e AND são usados para permi- 
tir movimentos nas diagonais e a função MOD é usada para 
evitar que o jegue saia da tela pelas laterais, desaparecendo 
de urn lado e surgindo do outro. 

A rotina para girar a tela é executada através da linha 1260 
e o jegue é impresso pela linha 1270. 

A linha 1280 começa tudo de novo a partir da impressão 
dos obstáculos no topo da tela. 

Com isso. temos o jegue com movimento e a tela girando. 
Atrás do jegue, porém, ainda forma-se um rastro que deve ser 
apagado. Isso pode ser feito alterando-se a linha 1210 para: 


1210 VPOKE X , 32 : C=STICK<0) 

0 caractere 32 corresponde ao esDaço em branco. Ele é 
"vpokeado" sobre o jegue antes que a tela gire, eliminando 
assim a formação do rastro. 

Nosso próximo passo será checar quando o jegue colide 
com um obstáculo (o caractere de código 234). Se isso acon- 
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tecer, devemos desviar o programa para uma rotina que trate 
especificamente desse caso. Vamos fazer essa checagem alte- 
rando ou acrescentando as linhas mostradas na figura 1.5. 

Figura 1.5 — Checagem de choque com obstáculo 

1270 IF UPEEK ( X ) =234 THEN 1310 
1280 UPOKE X , 216 
1290 GOTO 1190 

1300 ' Rotina para obstáculo 
1310 PRINT" O jegue caiu numa vala!!!" 
1320 FOR F=i TO 3000:NEXT F 
1330 GOTO 1170 

A linha 1270 verifica se o caractere logo acima do jegue 
na tela é um obstáculo (caractere 234) e, em caso afirmativo, 
desvia o programa para a rotina que inicia na linha 1310. Caso 
contrário, a linha 1280 é executada e o jegue (caractere 216) 
é impresso. 

A linha 1290 retoma a execução a partir da impressão dos 
obstáculos no topo da tela. 

A rotina que começa na linha 1310 apenas imprime uma 
mensagem no vídeo ("O jegue caiu numa vala!!! "), espera alguns 
segundos e desvia a execução para a linha 1170, onde a teia e 
limpa pelo comando SCREEN 1. 

Até aqui estamos ignorando propositalmente um dos re- 
cursos mais atraentes dos MSX. a produção de sons. 

Vamos inicialmente produzir um som para o deslocamento 
do jegue. Faremos isso de uma forma não muito usual (mais 
um macete!. . . preste atenção!). 

Além do PLAY e do SOUND. que usam o PSG, pode-se pro- 
duzir um click (o mesmo do teclado!) através de um OUT (co- 
mando do BASIC MSX) numa das portas da PPL 

Esse circuito controla, entre outras coisas, o click do te- 
clado e você poderá obter mais detalhes sobre seu funciona- 
mento no capítulo 3 do livro "APROFUNDANDO-SE NO MSX". 
Mude a linha 1260 para: 

1260 OUT 170 , 255 : K=USR ( 0 ) s OUT 170,127 

Isso deverá dar som ao movimento do jegue. 

Agora vamos melhorar a rotina do choque com o obstáculo. 
Altere o programa introduzindo as linhas mostradas na figura 
1 . 6 . 
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Figura 1.6 — Rotina de choque melhorada 


1300 ' Rotina para obstáculo 
1310 UPOKE X , 42 s SOUND 7 r 247:S0UND 6,31 
í 320 SOUND 8,16: SOUND 12,64:S0UND 13,0 
1330 FORF=i T 050 ! IFF/2=F\2THENVP0KEX , 35 
1340 FOR G=i TO20 : NEXTG :UP0KEX,42s NEXTF 
1350 GOTO 1190 


Nessa rotina, há duas coisas em que você deve prestar 
atenção: o ruído e a imagem do choque. Ambos foram produ- 
zidos de uma forma bastante simples e o resultado é plena- 
mente satisfatório. 

Agora vamos dar uma arma ao jegue, isto é, ao seu con- 
trolador, para que ele possa destruir os obstáculos. Faremos 
isso introduzindo uma rotina para lançar raios laser mediante 
pressão da barra de espaços. 

Para ativar a interrupção do programa quando a barra for 
pressionada, devemos usar as instruções STRIG(O) ON e ON 
STRIG GOSUB Altere a linha 1160 conforme segue: 

1160 STR IG( 0 ) ON : ON STRIG GOSUB 1370 

Depois, introduzia a rotina apresentada na figura 1.7. 

Figura 1 .7 — Raio LASER disparado 


1360 ' Raio laser disparado 
1370 UPOKE X , 216 

1380 FOR F=X-32 TO X-512 STEP -32 
1390 VPOKE F , 33 

1400 IF VPEEK < F-32 ) < >32 THEN 1420 
1410 NEXT F 

1420 FOR G=X-32 TO F-32 STEP-32 

1430 VPOKE G , 32 

1440 NEXT G 

1450 VPOKE X , 32 

1460 RETURN 


A linha 1370 coloca o jegue na tela. 
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0 laço entre as linhas 1380 e 1410 lança em raio formado 
por uma sequência de caracteres “!" (código 33) a partir do 
jegue. Dentro do laço, a linha 1400 verifica se algum obstáculo 
foi atingido e, em caso positivo, desvia o programa para a li- 
nha 1420. 

O laço entre as linhas 1420 e 1450 apenas apaga o raio 
lançado. 

Finalmente, a linha 1460 retorna para o programa principal. 

Com essa nova arma, o jegue ficou invencível! Um SUPER- 
ISCAI-JEGUE! O jogo, desse jeito, não tem graça. . Vamos me- 
ihorar um pouco essa rotina, fazendo com que, ao errar um 
tiro, o disparador laser fique algum tempo sem funcionar. 

Introduza e altere algumas linhas do programa conforme 
segue: 

1200 CT-CT+iHF CT = 10 THEN FL = i:CT=0 
1370 IFFL=0THENRETURNELSEUPOKEX ,216 
1410 NEXT F s FL=0 : CT=0 

Essas linhas fazem com que o raio laser fique algum tempo 
desativado após um disparo ser dado sem atingir nenhum obs- 
táculo. 

Ainda assim, o jogo está um pouco sem graça, pois não 
há limite para a quantidade de colisões que o jegue pode ter 
com os obstáculos. Vamos limitar esse número em três, acres- 
centando ao programa as alterações mostradas na figura 1.8. 

Figura 18 — Finalização do jogo 

1180 DEFINT A-Z:X=6640:N=3 

1190 VPOKE 6144+32*RND <i),234s LOCATE 0,2 

3 s PR INT"CHANCES ! " ; STR INGl (N,2ió) 

1350 N=N-i s IF N >0 THEN 1190 ELSE 1470 
1470 ' rotina de final izacao 
1480 COLOR 14,1,13 : SCREEN 1 
1490 PRINT" O JEGUE MORREU !!!" 

1500 PRINT" Para obter outro JEGUE" 

1510 PRINT" digite a tecla RETURN." 

1520 INPUT XS 
1530 RUN 


Agora, podemos dizer que já temos um jogo pronto. A par- 
tir daqui podemos começar a enfeitá-lo. 
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Vamos fazer com que a cada obstáculo destruído o jegue 
ganhe um ponto e, a cada 1Q0 pontos acumulados, faremos com 
que ele ganhe uma nova chance. Para isso basta introduzir as 
alterações apresentadas na figura 1.9. 

Figura 1 .9 — Contagem de pontos e bónus 

1180 DEFINT A-Z:X=6640:N=3:PT=0 
i i 90 VPOKE 61 44+32*RND ( 1 > , 234 ! LOCA TE 0,2 
3 : P R I NT."CHANCES : " ; STR I NG4 ( N , 2í 6 ) ; STR INGS 
< 4-N , 32 ) í" PONTOS : " j USING"#tttt" ; PT í 
1270 IF OPEEK ( X ) =234 THEN Í300 
i 300 P T=0 

1400 IF OPEEK < F-32 ) < >32 THEN PT=PT + i:GOT 
O 1420 

1440 NEXT G ! IF PT=100 THEN PT=0 : N=N+i : IF 
N=5 THEN N=4 

Mesmo com todos os caracteres impressos, a tela do jogo 
ainda está um pouco pobre, pois só tem três cores. Na 
SCREEN 1 existe a possibilidade de definirmos as cores de 
cada grupo de 8 caracteres seguidos. O MSX dispõe de . 25fi 
caracteres numerados de 0 a 255. Portanto, temos 32 grupos 
de 8 caracteres cada. O primeiro grupo começa com o caractere 
de código 0 e termina com o caractere de código 7. O último 
grupo é o dos caracteres com códigos entre 248 e 255. Para 
cada grupo, podemos definir uma cor de frente e uma cor de 
fundo diferentes. 

A regiiio da VRAM que armazena as cores de frente e fundo 
desses 32 grupos de caracteres fica entre os endereços 8192 
e 8223. Na tabela da figura 1.10 podemos observar os trinta e 
dois "octetos" de caracteres e os respectivos endereços na 
VRAM onde suas cores de frente e fundo estão definidas. 

Vamos alterar a cor do jegue. O código de seu caractere 
é 216, portanto o endereço da VRAM onde suas cores são defi- 
nidas é o 8219. 

O byte 8219 da VRAM, como qualquer outro, possui 8 bits. 
Cada bit pode valer 0 ou 1 (figura 1.11). 

Os 4 bits mais baixos desse byte (os da direita) devem 
armazenar a cor do fundo n os 4 bits mais altos (os da esquer- 
da) devem armazenar a cor de frente. Note que cada grupo de 
4 bits pode armazenar um número entre 0 e 15 (em binário). 
Por exemplo, se inserirmos o número binário &B101 10100 no 
endereço 8219 da VRAM o jegue será desenhado em amarelo 
sobre fundo azul. pois &B101 1 — 11 (cor amarela) corresponde 
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à cor de frente e &B0100 — 4 (cor azul) representa a cor de 
fundo! 

Figura 1.10 — Tabela de cores da SCREEN 1 


Endereço Caracteres alterado» 


8192 

0 

1 

2 

3 

4 

5 

6 

7 

8193 

8 

9 

10 

11 

12 

13 

14 

15 

8194 

16 

17 

18 

19 

20 

21 

22 

23 

8195 

24 

25 

26 

27 

28 

29 

30 

31 

8196 

32 

33 

34 

35 

36 

37 

38 

39 

8197 

40 

41 

42 

43 

44 

45 

46 

47 

8198 

48 

49 

50 

51 

52 

53 

54 

55 

8199 

56 

57 

58 

59 

60 

61 

62 

63 

8200 

64 

65 

66 

67 

68 

69 

70 

71 

8201 

72 

73 

74 

75 

76 

77 

78 

79 

8202 

80 

81 

82 

83 

84 

85 

86 

87 

8203 

88 

89 

90 

91 

92 

93 

94 

95 

8204 

96 

97 

98 

99 

100. 

101 

102 

103 

8205 

104 

105 

106 

107 

108 

109 

110 

111 

8206 

112 

113 

114 

115 

116 

117 

118 

119 

8207 

120 

121 

122 

123 

124 

125 

126 

127 

8208 

128 

129 

130 

131 

132 

133 

134 

135 

8209 

136 

137 

138 

139 

140 

141 

142 

143 

8210 

144 

145 

146 

147 

148 

149 

150 

151 

8211 

152 

153 

154 

155 

156 

157 

158 

159 

8212 

160 

161 

162 

163 

164 

165 

166 

167 

8213 

168 

169 

170 

171 

172 

173 

174 

175 

8214 

176 

177 

178 

179 

180 

181 

182 

183 

8215 

184 

185 

186 

187 

188 

189 

190 

191 

8216 

192 

193 

194 

195 

196 

197 

198 

199 

8217 

200 

201 

202 

203 

204 

205 

206 

207 

8218 

208 

209 

210 

211 

212 

213 

214 

215 

8219 

216 

217 

218 

219 

220 

221 

222 

223 

8220 

224 

225 

226 

227 

228 

229 

230 

231 

8221 

232 

233 

234 

235 

236 

237 

238 

239 

8222 

240 

241 

242 

243 

244 

245 

246 

247 

8223 

248 

249 

250 

251 

252 

253 

254 

255 

Figura 1.11 — 

Estrutura de um 

byte 






bits altos 



1 1 


n 

□ b 

its baixos 


7 

6 5 

4 

3 2 

i 

e 
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Introduza a linha a seguir no programa. 


i 175 UPOKE 82i9,SBi0ii0100 

Ela servirá para destacarmos o jegue dos demais caracteres 
impressos. 

Aproveite para melhorar um pouco a linha- 11 70, deixando-a 
como segue: 

1170 C0L0R9 , 4,7: SCREENi , , 0 : KEYOFF 

Dessa forma eliminamos o ciick de teclado. 

Vamos agora colorir mais ainda o jogo. Inicialmente pode- 
mos mudar a cor do raio laser de vermelho para cinza (cor 
14 = &Bil1ü). O caractere usado para produzir o raio 6 o “!’ 
cujo código é 33. Olhando a tabela da figura 1.10 vemos que o 
endereço a ser alterado é o 8196, portanto basta introduzir a 
iinha 1176 mostrada a seguir para fazê-lo ticar cinza e azul. 


1176 VPOKE 8i96,&Biii00100 

Agora vamos colorir todas as mensagens mostradas na 
parte inferior da tela, deixando-as brancas. Os caracteres usa- 
dos são as letras A.C.E.H.N.A.P.S.T e o sinal Introduza a 
linha a seguir: 

1177 FOR F=8198 TO 8202 : VPOKE F,&Bilii 
0100 : NEXT F 

Uma outra implementação que podemos fazer é produzir 
um som toda vez que o raio laser for disparado. A linha adiante 
se encarrega disso. 

1375 S0UND7 , 52 : S0UND6 , 8 : S0UND8 , 16 : S0UND9 
,16: SOUND0 , 99 : SOUND1 , 0 : S0UND2 ,199: S0UND3 
, 0 s S0UND12 , 3 s SOUNDi 3 , 4 

Agora vamos mexer mais um pouco no final do jogo. Toca- 
remos uma marcha fúnebre para o jegue morto. Na figura 1.12 
vemos as linhas a seVem acrescidas à rotina de finalização. 

Figura 1 .12 — A Morte do Jegue com Pompas 


1470 ' rotina de final izacao 

1480 SCREENI :FORF=0TO99 : COLOR0, FM0D15 
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1490 NEXTF s C0L0R6 , i , 13:S0UND7,56 
1495 L0CATE5 , 5sPR INT"0 JEGUE MORREU !" 
1500 PRINT" Para ressuscitar o JEGUE" 
1510 PR INT"d i g i t e a barra de espaços." 
1520 PLAY"t 1 10n»100s0vi5" r "t 1 10vi5" 

1530 PLAY"olbbbbo2dc«c«oibbattbr8","o3bbb 
bo4dc#c#o3bba#br 8" 

1540 STR IG ( 0 ) OFF 

1550 IFSTRIG(0) =0THEN1550ELSERUN 


Como você deve estar notando, podemos fazer mil coisas 
para melhorar cada vez mais o jogo. Antes de deixarmos as 
alterações por sua conta, vamos fazer mais uma: redefinire- 
mos os caracteres do jegue e do obstáculo! 

Assim que a instrução SCREEN 1 é executada, o MSX copia 
todos os 256 caracteres da ROM para uma região da VRAM 
entre os endereços 0 e 2047. Cada caractere é representado por 
oito bytes em sequência (figura 1.13). 


Figure 1.13 — Caracteres na VRAM 


VRAM 



byte 


byte 

byte 


byte 


0 


7 

8 


15 


/> CARACTERE 0 


> CARACTERE 1 
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Por exemplo, o caractere "4" é armazenado como mostra 
a figura 1 . 14. 

Figura 1.14 — O caractere "4" na VRAM 


1728 > 

1729 > 

1730 > 

1731 > 

1732 > 

1733 > 

1734 > 

1735 > 


00000000 

00100000 

00100000 

01010000 

01010000 

10001000 

11111000 

00000000 



O programa da figura 1.15 apresenta no vídeo os endere- 
ços iniciais e finais de armazenamento dos 256 caracteres na 
VRAM quando se usa a SCREEN 1. 

Figura 1 .15 — Endereços de caracteres na VRAM 

5000 SCREEN 0 : KEY OFF 

5010 OPEN"crt i"FOR OUTPUT AS «1 

5020 FOR F=0 TO 127 :H=F+128 

5030 PRINT Wi , USING ,, MRttttH" j F ; F *8 ? F#8+7 ; 

5040 PRINT #1," "» 

5050 PRINT Hi ,USING"#H#HM"íHpH*8;H*8+7í 
5060 PRINT: NEXT F 



No vídeo, os dados surgirão em duas partes: ao lado es- 
querdo estarão os primeiros 128 caracteres e ao lado direito 
estarão os demais. O dado mais à esquerda é o código, o dado 
seguinte é o endereço de início de armazenamento e o último 
dado é o endereço final de armazenamento. 
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Para redefinir um caractere basta alterar os bytes que o 
definem na VRAM. 

Vamos alterar o jegue (código 216) e os obstáculos (código 
234). Usando o programa da figura 1.15 vemos que eles são 
armazenados, respectivamente, nos endereços 1728-1735 e 
1872-1879. Vamos alterá-los. deixando-os como na figura 1.16. 


Figura 1 .16 — O jegue e os obstáculos redefinidos 


1728 

= > 

01000100 => 

1729 

= > 

11000110 => 

1730 

= > 

11000110 => 

1731 

= > 

11010110 => 

1732 

= > 

01111100 => 

1733 

= > 

00111000 => 

1734 

= > 

00111000 => 

1735 

= > 

00111000 => 



1872 

= > 

10000001 => 

1873 

= > 

liilliii => 

1874 

= > 

10000001 => 

1875 

= > 

11011111 => 

1876 

= > 

10000001 => 

1877 

= > 

ilililli => 

1878 

= > 

10000001 => 

1879 

= > 

iiliiill => 



Introduza as linhas mostradas na figura 1.17 para redefinir 
os caracteres. 

Figura 1 .17 — Rotina de redefinição 


ü 77 FORF=8198TO8202:VPOKEF,«B1 11 10100 =N 

EXTF 5 GOSUB 1730 

1560 ” Rotina de redefinição 

1570 DATA 01000100 

1580 DATA 11000110 

1590 DATA 11000110 

1600 DATA 11010110 

1610 DATA 01111100 

1620 DATA 00111000 

1630 DATA 00111000 
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í 640 DATA 00ÍÍÍ000 

i 650 DATA Í000000Í 

1660 DATA iiiiiíii 

1670 DATA 10000001 

1680 DATA 11011111 

1690 DATA 10000001 

1700 DATA iiliiiii 

1710 DATA 10000001 

1720 DATA iiiiilil 

1730 RESTORE 1570SFOR F=0 TO 7 

1740 READ Xi*A=UAL<"«b"+X4) 

1750 VPOKE 1728+F , A : NEXT F 

1760 FORF=0TO7:READXí:A=VAL< ,, «B"+X*> 

1770 UP0KEÍ872+F ,A: NEXTF s RETURN 

A partir daqui as alterações ficam por sua conta. Aqui vão 
algumas sugestõgs: 

0) Crie uma tela de apresentação para o jogo! 

1) Redefina os caracteres "espaço em branco" cujo Código 
é 32. 

2) Redefina o caractere cujo código é 33. 

3) Gere ao menos 3 tipos diferentes de obstáculos (não 
apenas o caractere 234) e faça com que um deles tenha 
que ser necessariamente destruído antes de chegar ao 
fim da tela. 

4) Transforme o JEGUE num jato e os obstáculos em naves 
inimigas. 

5) Não esqueça de gravar o programa !!!” 

6) Jogue !!! 

No livro "Programação Avançada em MSX" ensinamos outros 
truques que se pode fazer com as telas no MSX. 
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JOGOS 



Qunndo o padrão MSX foi lançado no Japão, a estratégia 
de "marketing'' utilizada para convencer os compradores a colo- 
car um micro dentro de casa. foi a de apresentá-lo como um 
sofisticado video-game, brinquedo então em auge na preferência 
dos consumidores. 

Isto explica a abundância de fitas e cartuchos gravados com 
jogos de ação que até agora se encontram no mercado. Na rea- 
lidade foi cometida uma injustiça com esta máquina maravilhosa 
que tem possibilidade de uso muito mais complexa do que a 
de rodar simples joguinhos de 'flipperama". 

Ao colocarmos esta seção de jogos de ação no livro, nossa 
intenção não foi a de simplesmente fornecer ao leitor mais 
programas deste tipo, pois os que já existem no mercado são 
mais que suficientes, tanto em qualidade quanto em quantidade, 
para satisfazer o aficcionado mais exigente. 

Nosso verdadeiro objetivo foi o de motivar o leitor a enten- 
der como estes programas são elaborados, incentivando-o a in- 
troduzir suas próprias alterações, melhorando e personalizando 
o software sugerido. 

A grande diferença entre um micro computador e um video- 
game não está na máquina em si. mas sim na atitude mental de 
quem a opera. No micro, o usuário tem condições de desenvol- 
vei sua própria criatividade, sendo este o resultado verdadeira- 
mente importante. 


25 




INSTRUÇÕES 

Este programa é uma versão em BASIC de um dos primei- 
ros "video-games" produzidos comercialmente. Obviamente, a 
velocidade do jogo é bastante lenta quando o comparamos com 
versões feitas em linguagem de máquina, no entanto, a estru- 
tura do programa é o que mais nos importa no momento e com- 
preendê-la poderá ser de grande utilidade quando você for de- 
senvolver novos programas. 

O jogo é bastante simples: você controla uma raquete com 
as teclas A e ▼ e deve impedir que uma bola de tênis saia 
pelo lado direito da tela (quadra). Há um total de 6 bolas, ao 
término das quais o jogo acaba. 


Figura 2.1 — Programa PAREDAO 


1000 REM JOGO PAREDAO 

1010 REM Rubens « Renato (FEU/86) 

1020 REM 

1030 CQ=3 : CP = 15 : CR=6 
1040 CB = 9 : CN=12 
1050 COLOR CP , CQ , CO 
1060 SCREEN 3, ,0 

1070 OPEN "GRP : " FOR OUTPUT AS «1 
1080 FOR F=1 TO 5 
1090 READ A* 

1100 BÍ=BÍ+CHR*<UAL<"8h"+Aí> ) 
1110 NEXT F 

1120 DATA 70 , c8 , e8 , f 8 , 70 
1130 SPR ITE% < 1 ) =B9> 

1140 DR AW"BM255 , 0L255D1 91R255" 

1150 COLOR CR 
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DRAW"D16" 


1160 PSET ( 230 , 80 ) , CR : 
í 170 XR=230 * YR=80 
í 180 P T=0 
1 190 FOR NB=6 TO i STEP -i 
Í200 XB=8 : YB=INT(180»RND( -TIME ) > +4 
í 2i0 DX=4 : DY=RND < -TIME ) *9-4 
1220 COLOR CQ 

1230 PSET < 40 , 40 ) , CQ : PRINT Hi,NB+i 
1240 COLOR CN 

1250 PSET (40, 40), CO : PRINT #i,NB 
1260 IF ST ICK < 0 ) = 1 AND YR>7 THEN PSET(X 
R , YR + 16 > , CO : YR = YR-4 s PSET < XR , YR ) , CR 
1270 IF STICK ( 0 ) = 5 AND YR<168 THEN PSE 
T< XR , YR > , CQ : YR=YR + 4 : PSET(XR , YR + 16) ,C 
R 

1280 XB=XB+DX : YB=YB+DY 

1290 IF XB >260 THEN 1510 

1300 IF XB < 4 THEN DX=-DX : XB=XB+DX 

1310 IF YB < 4 OR YB>183 THEN DY=-DY s YB=Y 

B+DY 

1320 IF XB >XR-4 AND XB<XR + i AND YB > YR-4 
AND YB < YR + 16 THEN 1350 
1330 PUT SPRITE 1 , < XB , YB ) , CB , 1 
1340 GOTO 1260 
1350 SOUND 0,250 
1360 SOUND 1,1 
1370 SOUND 2,250 
1380 SOUND 3,0 
1390 SOUND 7,56 
1400 SOUND 8,16 
1410 SOUND 9,16 
1420 SOUND 11,255 
1430 SOUND 12,2 
1440 SOUND 13,0 

1450 IF YB<YR+4 OR YB>YR+16 THEN NX=4 » 
NY=4 : GOTO 1480 

1460 IF YB < YR+8 OR YB>YR + 12 THEN NX=4 : 
NY=2 : GOTO 1480 
1470 NX=4 s NY=1 
1480 DX=-NX : DY=SGN< DY ) *NY 
1490 PT=PT+i 
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1500 GOTO 1280 
1510 NEXT NB 

1520 L INE < 4 , 4 ) - < 251 ,187),4 r BF 

1530 PSET ( 20 , 20 ) , 4 : PRINT #1 , "PONTOS 5 

?PT 

1540 IF STR IG ( 0 ) =0 THEN 1540 
1550 CLOSE : RESTORE : RUN 


ANÁLISE 

Os nomes das variáveis indicam as funções a que elas se 
prestam. 

CO = cor da quadra 

CP = cor dos pontos 

CB = cor da bola 

CN = cor dos números 

PT = pontos 

NB = número de bolas 

XB = coordenada X da bola 

YB = coordenada Y da bola 

DX = incremento (Delta) na coordenada X da bola 

DY = incremento (Delta) na coordenada Y da bola 

XR = coordenada X da raquete 

YR = coordenada Y da raquete 

NX = número do incremento de X da bola 

NY = número do incremento de Y da bola 

A bola é um "sprite" definido entre as linhas 1110 e 1170. 
As linhas 1300 e 1310 movem a raquete. 

Para iniciar o jogo. pressione a barra de espaços. 

Um exercício interessante seria tentar fazer este mesmo 
jogo usando a SCREEN 1 ao invés da SCREEN 3 e nesse caso. 
certamente a velocidade do jogo seria bem maior! 

Se você está disposto, aqui fica o desafio! 
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HO 
PANIC 


INSTRUÇÕES 


Uma cidade foi invadida por terríveis siris, sendo que estes 
se refugiaram num edifício em construção. 

Seu objetivo é destruir os invasores nesse edifício, cavan- 
do buracos no chão e fazendo-os cair. 

Mova-se com as setas e pressione a barra de espaços para 
cavar buracos. Você tem cinco vidas para completar sua missão 
e perderá uma cada vez que um siri o atacar. Os buracos só 
podem ser feitos a partir do primeiro andar, sendo impossível 
fazê-los no térreo. O buraco será escavado sempre ao seu lado 
e na direção apontada pelas setas. Se você cair num dos bura- 
cos, nada lhe acontecerá. 

A cada leva de siris que for destruída, um novo prédio será 
gerado, até que você perca todas as suas vidas e seja devorado 
pelos siris! 

Tome cuidado ao digitar as linhas 900, 30000, 30010, 30020 
e 30030, pois elas contém muitos dados numéricos importantes 
para a formação dos desenhos. 

Nas linhas entre a 1220 e a 1275, preste atenção para não 
errar o número de espaços em branco, para que as mensagens 
saiam centralizadas. 

As notas usadas pelo comando PLAY na linha 9010 devem 
ser digitadas com cuidado. 

Figura 3.1 — Programa HOLí PANIC 

10 REM HOLE PANIC 

20 REM Autores! Luiz Fernando 

30 REM Wilson e Yeh 

100 SCREEN 2,2 : CLS 

101 OPEN "grp *" FOR OUTPUT AS H 1 
110 R=RND<1> 

200 DEFINT A-Z 
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900 DIM V < 32 , 10) , XX ( 8 ) , YY (8) , AX <6),AY(6) 
, AM ( 6 ) , AB ( 6 > , AF < 6 ) 

9Í0 RESTORE 990 : FOR L=i TO 8 : READ XX 

( L ) , YY ( L > s NEXT 

920 GOSUB 30000 s SPR ITE* ( i ) =El 

930 SPRITE%(2)=A4+B5 

935 SPRITE5<3)=AS+BS 

940 SPR I TEÍ <4)=A$+B$ 

990 DATA 0,-i,i,-i,i,0,i,l,0,i,-i,l,~l,0 

r — 1 r i 
1010 ' 

1200 SC=0 : LE=5 

1210 COLOR 15,5,7: CLS : PSET (0,50) ,4 
1220 PRINTHi," PLAY 

1230 PRINTHI,: COLOR 6*PRINTH1," 

Hole-Pan i c ! ! " : PR INTH1 , 

1260 PRINTHi, :COLOR 7 

1270 PRINTHi," escolha Joy-Stick ou Tec 
lado" 

1275 PRINTHi," <J> ou <T>" 

1280 AS=INKEY%: IFAÍ=""THENR=RND( 1 ) sGOTO 
1280 

1290 IFAl="t "ORAí="T"THEN2000 

1300 IFAÍ="j"ORAS="J"THENM=M+l :GOTO2000 

1310 GOTO1280 

2000 FORL-0TO10:FORK=0TO3i :0<K ,L)==0:NEXT 
: NEXT 

2001 COLOR 10, 1 , 1 :CLS:FORL=0TO3 

2010 LINE<0,L*48+32)-<256,L*48+39) ,11, BF 

2020 FORK=0TO3i : V< K , L»3 > = 1 * NEXT : NEXT 

2030 FORL=0T 02 

2040 FORK=0TO2 

2050 R=RND(i)«3i 

2060 0 ( R , L#3+l ) = 1 : V < R , L#3+2 > = 1 

2070 LINE < R *8+2 ,L*48+40)-(R#8+2 , L#48+80 ) 

, ii:LINE<R*8+i3,L*48+40)-<R*8+i3,L*48+80 

),il 

2080 FOR J-4T 046STEP6 : LINE <R#8+2,L#48+40+ 
J)-<R»8+13,L*48+40+J) , 12: NEXT 
2090 NEXT : NEXT 
2200 X= 1 5 : Y=9 
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Hol 


2300 COLOR 4:PSET<0,0> ,2:PRINTHi, 
e Pan ic : Score COLOR Í5 
2400 AK=0:FORL=2TO4 :AH(L)=í :AY(L)=<L- 2>w 
3 ! AX ( L ) ~RND ( i ) *29+1 : AF < L ) = i s NEXT 
3000 0(X r Y>=BF:S=STICK(M> :KX=X+XX(S) :KY= 
Y+YY(S)sIFKX< 0ORKX >3iORK Y <0ORKY>i 0THEN30 
50 

30Í 0 IFV<KX,KY> =3THEN0 (KX,KY) = 1 :LINE(X«8 
-8,Y*i6+32)-<X*8+23,Y*i6+39> ,Ü,BF:X=KX5 
Y=K Y+3: PUTSPR ITEi „ ( X*8 , Y*16+i 6 ) , 4 : GOTO 3 
050 

30 i 5 IFV<KX r KY>< >0THENX=KX : Y=KY : PUTSPR IT 

Ei , <X*8,Y*i6+16> ,4 

3050 IFXX(S)< >0THENXi=XX ( S ) 

3060 BF=0(X,Y) SV(X,Y)=4 

3100 FORL=2TO4:IFAF(L)=0THEN3900 

3101 IFAM < L ) < > 0THEN3500 

3104 IFAH(L>=0THENAH<L)=i 

3105 IFAY < L > =YTHEN3140 

3106 IFAY<L ) < >0THENP i=0(AX(L) , AY <L.)-i)EL 
SEP 1=0 

3110 IFAY <L ) < >9THENP2=U ( AX ( L ) , AY (L)+i)EL 
SEP2=0 

3120 IFY>AY<L) ANDP2=1THENAM < L ) =2 : GOTO 35 
00 

3130 IFY<AY(L)ANDPi=iTHENAH<L)=l :GOTO 35 
00 

3135 IFINKRNDd ) *20 ) =0THENAH < L ) =-AH ( L ) 
3140 KX=AX(L)+AH(L) : IFKX < 0ORKX >3 1 THENAH < 
L)=-AH(L) SGOTO3140 

3150 AX(L)=KX:F=V(AX(L) ,AY(L) ) :IFF=3THEN 
GOSUB5000 s GOT O 3900ELSEIFF=4THENOF=í 

3151 AX <L)=KX: PUTSPR ITEL, < AX < L > *8 , AY < L ) * 
16+16) ,8:G0T0 3900 

3500 AY ( L ) =AY ( L ) +AM ( L ) #2-3 : A=AY ( L > : IFA=0 
ORA=3ORA=6ORA=9THENAM(L>=0:AH(L>=SGN<X-A 
X (L ) ) * GOT 03105 

3510 PLJTSPRITEL, < AX (L)*8,AY(L)#i6+i6) ,8 
3900 NEXT 

4000 IFSTRIG<H)=0THEN4300 
4005 IFY=9THEN4300 


31 



4006 IFX+XÍ *3< 10RX+Xi*3 >30THEN4300ELSEX2 
=X*8+X1*Í6 

4010 IFV(X+X1*2,Y+1 >=1THEN4300 

4011 IFY < >0THENIFV ( X+Xi*2 , Y-i ) =1 THEN4300 
4020 LI NE ( X2 , Y*1 6+32 ) - ( X2+15 , Y*16+39),i, 
BF:U(X+X1*2,Y>=3 

4300 ' 

4400 IFOF=í THEN7000 
4410 OF=0 
4990 GOTO 3000 

5000 PLAY"a64b64":AF(L)=0:PUTSPRITEL, <0, 
0) ,2 

5010 COLOR 15,i:LINE< 155, 0)-< 220, 9> ,i,BF: 
SC=SC+100:PSET< 155,0) ,7:PRINTHi ,SC; :LINE 
< AX< L ) *8-8, AY<L> *16+32 >-(AX(L >*8+23, AY (L 
) *16+39) ,il,BF:V(AX(L) ,AY(L> >=i 
5020 AK=AK+i s IFAK=3THEN9000 
5090 RETURN 

7000 OF=0:LE=LE-i :PLAY"o4eco3a":GOSUB950 

0::IFLE=0THEN7200 

7010 GOT 02000 

7200 PSEK100, 100), 2:PRINT«i, "GAME OVER" 
7210 FORT=1TOÍ000! NEXTT s CLS : COLOR 4 
7220 PRINTHi, "Deseja jogar novamente <s/ 
n >" 

7225 AS=INKEY4:IFA*=""THEN7225 

7227 IFA‘B="N"ORA%="n"THENEND 

7230 IFAÍ="S"ORA%="s"THENLE=5:GOTO8000 

7240 GOT 07225 

8000 PUTSPRITEi , (0,0) ,2 

8010 PUTSPRITE2, (0,0) ,2 

8020 PUTSPRITE3, (0,0) ,2 

8032 PUTSPRITE4, (0,0) ,2 

8090 GOT 02000 

9000 PSET < 1 00 ,100) ,2sPRINTHi, "Cl ear ! !" 

9010 PLAY"o4ce8fg8abo5c8d8c":GOSUB9500 

9020 GOT 02000 

9500 IFPLAYÍ0) =-lTHEN9500 

9510 PUTSPRITEi, (0,0) ,2 

9520 PUTSPRITE2, (0,0) ,2 

9530 PUTSPRITE3, (0,0) ,2 
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9542 PUTSPR ITE4 , (0,0) ,2 
9550 RETURN 
9999 GOT 09999 

30000 A4-CHR* ( &HA0 ) +CHR4 ( &HAE > +CHR4 < &HAA 
) +CHR 4 ( «HAE ) +CHR 4 ( SH44 ) +CHR4 ( «H24 ) +CHR4 ( 
&H54 ) +CHR4 < &HAF ) +CHR4 < ÃH5F ) +CHR4 < &HBF ) +C 
HR4 ( «H5C ) +CHR4 ( &HBD ) +CHR4 < «HiC > +CHR4 < «HF 
[) ) +CHR4 ( &H87 ) +CHR4 < &H0 > 

300Í0 B4=CHR4 ( &HA ) +CHR4 ( &HEA ) +CHR4 ( ÃHAA ) 
+CHR4 < &HEA ) +CHR4 < &H44 ) +CHR4 ( &H4S ) +CHR4 < & 
H52 ) +CHR4 ( &HE5 ) +CHR % ( &HF A ) +CHR4 ( &HFD ) +CH 
R4 < &H3A ) +CHR4 (&HBD)+CHR4( 6H38 ) +CHR4 < &HBF 
>+CHR4(*HEl ) 

30020 DATA 3 , 7 , 7 , 7 , 3 , 1 , 15 , 31 , 27 , 19 , 7 , 14 , 
14,14,14,30 

30030 DATA 192,224,224,224,192,128,240,2 
48,216,200,112,112,112,112,112,120 
30040 RESTORE 30020 : E4="" 

30050 FORL=0TO31 : READS s E4=E4+CHR4 ( S ) : NEX 
T 

30060 RETURN 


ANALISE 

Nas linhas de 100 a 990 é realizada a inicialização do pro- 
grama, dimensionamento de variáveis e definição dos "sprites". 
Da linha 1010 a 1270 temos a abertura. A seleção de teclado 
ou "joystick" é feita entre as linhas 1280 e 1310. Os pisos dos 
andares são montados nas linhas de 2000 a 2020. As escadas 
são geradas nas linhas de 2030 a 2090. Os siris são posicio- 
nados inicialmente pela linha 2400. 

Na linha 3000 a função STICK identifica uma tecla pressio- 
nada. A linha 3010 faz a impressão do homem. Seu movimento 
é feito pela linha 3015. As linhas de 3100 a 3900 fazem compa- 
rações para checar as posições dos siris e se há algo em sua 
proximidade. Os siris são impressos pelas linhas 3510 e 3151. 
Nas linhas de 4000 a 4020 são feitas comparações para saber 
se a barra de espaços ou o disparador do "joystick" foi pressio- 
nado. As linhas 7000 e 7010 diminuem suas vidas e checam 
quantas ainda restam. 

A partir da linha 30000 está a rotina de inicialização, que 
é chamada por um GOSUB na linha 920. 
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INSTRUÇÕES 

Você odeia balões de aniversário. Eles perturbam sua men- 
te e o deixam nervoso. Você precisa destrui-los a qualquer 
custo! Nem que tenha que gastar todo o seu tempo disponível 
para isso. 

Parece o pensamento de uma mente doentia, mas na ver- 
dade é o tema do jogo descrito a seguir. 

Seu objetivo é estourar os balões que ficam voando pela 
tela, encurralando-os com blocos de tijolos. Você controla os 
blocos com as setas ao lado direito do teclado e sempre que 
um balão ficar encurralado, ele estoura. 

Tome cuidado na digitação das linhas entre 100 e 200, pois 
esses dados são facilmente alternáveis. 

As linhas entre 1030 e 1060 também são perigosas. Digite-as 
com bastante atenção. 

Figura 4 1 — Programa BALÕES 

10 REM BALÕES 

20 REM Autores: Luiz Fernando 

30 REM Wi 1 son e Yeh 

100 DATA00 r 77 , 77 r 77 r 00 , dd , dd , dd r 00 , 77 , 77 
,77,00,dd,dd,dd 

110 DATA07, if ,3f ,7f ,67 ,db,bd,ff ,ff,ff ,ef 
, 77,78, 3f ,lf ,07 

120 DATAe0,fB,fc ,fe,e6,db ,bd,ff ,ff ,ff ,f7 
,ee, ie , f c ,f8,e0 

130 DAT A0c , ie,3f ,5d,fb ,ff ,cl ,9c ,af ,32,3d 
, 3b, 37, 0f ,07,03 

140 DAT A30,78,fc,ee,e3,ff , 83 , 39 , f 5 , 4c , bc 
,dc ,ec ,f0,e0,c0 

150 DAT A6b , 6b , 6b , 6b , 6b , 6b , 6b , 6b , 6b , 6a , 6a 
,6a, 6a, 6a, 6a, 6a, 6a 
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160 DATA21 ,21,21,21,21,21,21,21,21,21,21 
,21,21,21,21,21 

í 70 DATA2 1,21, 21, 21, 21, 21, 21, 21, 21, 21, 21 
,21 ,21,21,21,21 

i 80 DATAb i,bi,bi,bi,bi,bi,bi,bi,bi,bi,bí 
,bi ,bi ,bi ,bi ,bi 

í 90 DATAbi,bi,bl,bi,bi,bi,bi,bl,bl,bi,bi 

,bi ,bi ,bi ,bl ,bi 

200 DAT A32,-i,-i, 32 , i 

2i0 ST=.1000 s A=RND < -TIME ) s GOSUB 1250 

220 FOR I=0TO79 : READAS : A=VAL < "&h"+A 4 > 

230 VPOKEI,A:UPOKEI+2048, A : UPOKEI +4096 , A 
SNEXT 

240 FORI>0TO79:READAÍ :A=OAL<"&h"+A%> 

250 VPOKEI+8192,A:VPOKEI+10240,A:YPOKEI+ 
12288 , A s NEXT 

260 FORI=0TOii:VPOKEI+6144,12:UPOKEI+640 
0, 12: OPOKEI +6656 ,12 SNEXT 
270 DIHFA! < 4 > , F% ( 4 > , BL ! (6) 

280 HS=500 
290 SO0 

300 FOR I=0T 04 : FA ! ( I ) =&H1863+ 1 *2 : NEXT 
310 TI^ST : MA=6544 : FK =5 

320 GOSUB 1 240 : FOR I=2T 031 : VPOKE&H 1840+1 , 1 
s UPOKE&Hi AE0 + I , 1 :NEXT 

330 FOR I=3T 022 s UPOKE I #32 + &Hi802 , 1 s VP OKEI 
#32+&H181F , 1 : NEXT 

340 VPOKEMA , 6 * VPOKEMA+i , 8 s VPOKEMA+32 , 7 s 0 
POKEMA+33 , 9 

350 FOR I= : 0T 04 : VPOKEFA ! < I > , 2 : UPOKEFA ! <I) + 

1,4: OPOKEFA ! (I>+32,3 

360 YPOKEFA! < I ) +33 , 5 s NEXT 

370 FOR I=0T 06 

380 X=INT(RND(i > *27 > +3 : Y=INT < RND < 1 >*16>+ 
7 

390 FOR J=0TO1 : FORK=0TOi : IFVPEEK < ÃH1800+X 
+Y*32+ J+K *32 > < > 12G0T 0 380 
400 NEXTK , J 

410 A=«H1800+X+Y*32SBL! <I)=ASOPOKEA,0:OP 
OKEA+i , 0 s VPOKEA+32 , 0 s VPOKEA+33 , 0 
420 NEXT 
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430 GOSIJB i 190 
435 GOSUB Í2Í0 

440 REST ORE200 :FORI=0T 04 : READFZ < I ) : NEXT 

450 A=STICK (0) : IFA=0GOTO 700 

460 IFA=iTHENP=-32:G0T0 5i0 

470 IFA=3THENP=2 s GOT 0 510 

480 IFA=5THENP=64 : GOT 0510 

490 IFA=7THENP=-i SGOTO510 

500 GOTO700 

510 IFOPEEK <MA+P >=0THENPSET< 136,8) , 1 :GOT 
0590 

520 IFVPEEK (MA+P X >12G0T0 700 

530 A=l:lFABS(PX3THENA=32 

540 IFOPEEK ( MA+P + A ) < > 12G0T 0 700 

550 OPOKEMA, 12S0P0KEMA+1 , 1 2 : 0P0KEMA+32 , 1 

2* VPOKEMA+33, 12 

560 IFP >0THENP 3 =P/2 

570 MA=MA+P s OPOKEMA , 6 * OPOKEMA+i , 8 ! VPOKEM 

A+32 , 7 * 0P0KEMA+33 , 9 

580 GOTO 700 

590 A=P:IFP<0THENA=A*2 

600 FOR I=0T 06 : IFMA+A< >BL ! < I ) THENNEXT • GOT 
0 700 

610 IFOPEEKÍBL! < I )+P X >12GOTO700 

620 A=l:IFABS(PX3THENA=32 

630 IFOPEEK<BL! (D+P+AX >12G0T0 700 

640 OPOKEBL! ( I ) , 12 : OPOKEBL ! < I > +1 , 12 » OP OK 

EBL ! ( I > +32 , 12 

650 VPOKEBL ! ( I ) +33 , 12 : VPOKEMA , 12 s VPOKEMA 

+ l,12s 0P0KEMA+32 , 12 s OP OKEMA+33 ,12 

660 IFP >0THENP=P/2 

670 MA=MA+P:BL! <I)=BL! <I)+P 

680 VPOKEBL! < I >, 0 : VPOKEBL ! < I ) +1 , 0 : VPOKEB 

L! < I > +32 ,0iVPOKEBL! <I)+33,0 

690 VPOKEMA , 6 ! VPOKEMA+1 , 8 s VPOKEMA +32 ,7*0 

PfJk FMÔ + TT 9 

700 FOR I=0TO4 ! IFFA ! <I)=0GOTO 780 

710 P=FZ(I)!IFP>0THENP=P«2 

720 IFVPEEK <FA! (D + PX >12G0T0 790 

730 A=lslFABS(PX3THENA=32 

740 IFVPEEK (FA ! < I ) +P+A X > 12GOTO790 
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750 VPOKEFA! < I ) , í 2 : VPOKEFA ! < I ) + i , 12 : VPOK 
EFA ! (I)+32, 12: VPOKEFA! (I>+33,12 
760 FA! ( I ) =FA ! (I)+FZ(I> 

770 VPOKEFA! ( I >, 2 : VPOKEFA ! ( I > +i , 4 : VPOKEF 

A! < I ) +32 , 3 s VPOKEFA ! (I>+33,5 

780 NEXT :TI = TI-i : GOSUB 1210: IFT I=0GOT O 10 

60ELSEGOTO 450 

790 IFP >0THENP=P/2ELSEP=P*2 

800 P=P*-1 

810 IFVPEEK(FA! (I>+P>< M2G0T0 850 

820 A=i:lFABS(PX3THENA=32 

830 IFVPEEK (FA ! <I)+P+A)< >Í2G0T0 850 

840 FZ(I)=FZ(I)#-i:GOTO 750 

850 IFABS<P)< 3G0T O 920 

860 IFVPEEK (FA! (I)-i>< > Í2GOTO890 

870 IFVPEEK(FA! <I)+3i)< > Í2G0T0 890 

880 FZ( I )=-í 5GOTO 750 

890 IFVPEEK(FA! (I>+2>( >12G0T0 980 

900 IFVPEEK < FA ! ( I > +34 ) < > Í2GOTO980 

910 FZ ( I ) = 1 : GOT O 750 

920 IF VPEEK < FA ! < I ) -32 ) < > Í2G0T0 950 

930 IF VPEEK (FA ! <I)-3i>< >12GOTO950 

940 FZ<I)=--32:G0T0 750 

950 IF VPEEK (FA ! < I ) +64 > < > Í2GOTO980 

960 IFVPEEK (FA! <I)+65)< > í 2G0T0 980 

970 FZ(I)=32:GOTO750 

980 S0UND7 , 247 : S0UND8 r 16: S0UND13 , 0 : SOUND 
6,15 

990 SOUND ii,i00:SOUNDi2,i0:FK=FK-i 
1000 VPOKEFA! (I) ,12: VPOKEFA! (I)+1,12:VP0 
KEFA ! ( D+32, 12 s VPOKEFA! (I>+33,12 
1010 FA! ( I ) =0 5 SC=SC + i0 5 GOSUB Í190:IFFK( >0 
GOT 0780 

1020 S0UND7 , 56 : ST=ST-100 : IFST =200THENST= 
1000 

1030 PLAY // S11M5000T255L8O3GO5GO3FO5AO3EO 
5B03D06CL403C06CC" 

1040 SC=SC + INT ( TI/2 ) s GOSUB 1190 

1050 I FPL AY (0)GOTO1050ELSE300 

1060 S0UND7,56:PLAY"t 120s8m51 8o4g . gai6g . 

116gabo5c8" 
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1 070 IFPLAY(0) THEN1070 

1080 FOR 1=0 TO 1000 : NEXT 

1090 LINE<0,8)-< 255 ,15),4,BF 

1100 PSET ( 88 , 8 ) , 4 s COLOR iSsPRINTtti, "FIM D 

E JOGO" 

1110 FOR I=0TO2000 ! NEXT : IFSC >HSTHENHS=SC 
1120 LI NE ( 0 , 8 ) - < 255 ,15) , 4 , BF 
1130 PSET (48,8) ,4:COLOR10:PRINTtti, "TECLE 
ESPAÇO PARA COMECAR" 

1140 IF STRIG<0> =0GOTOi 140 5 L I NE ( 0 , 8 ) - ( 25 
5,15) ,4, BF 

1150 L INE < 0 , 8 ) - < 255 ,15) ,4,BF 

1160 PSET(80,8),4: COLOR 15 s A=HS s MS=»5 : GOSU 

B1230SPRINTM1, "RECORDE :";Si 

1170 FOR I=0TOi 000 s NEXT s BEEP 

1180 LI NE ( 0 , 8 ) - < 255 ,15),1,BF: GOT 0290 

1190 LI NE (64,8)-<118,15) r i,BF 

1200 A=SC í M=5 : GOSUB 1230 s PSET (16,8), 1 :PRI 

NTttl , "SCORE s " p SS ! RETURN 

1210 L INE <184,8)-(2i5,i5),i,BF 

1220 A=TI : M=4s GOSUB 1230 sPSET< 136,8) ,i:PR 

INTMi, "TEMPO i"fSí: RETURN 

1230 S$=STR% ( A ) s S5=R IGHT5 ( "0000"+R IGHTS ( 

S*,LEN<S*)-i),M):RETURN 

1240 FORI=«Hi840TO«HiAFFíOPOKEI,i2:NEXT: 
RETURN 

1250 SCREEN2 ,2,0: COLOR 15,i:CLS 

1255 OPEN"grp:"AStti:LINE(0,0>-(255,7) ,10 

,BF 

1260 PSET < 80 , 0 ) , 1 1 : COLOR 13 : PR INTWi , "BAL 
LOON CRASH" 

1270 PSET (16,16),1: COLOR 15 : PR INTtt 1 , "Man 
ejc o garoto, mova os blo- cos" 

1280 PSET (16,32) ,isPRINTHi , "e estoure os 
baleezinhos." 

1290 PSET (16,48) ,isPRINTHi, "0 balao,ao s 
er imob i 1 izado. . . " 

1300 PSET(16, 64), i:PRINTttl,"... acaba est 
ourando." 

1310 PSET <16, 80 ) ,isPRINTHi, "0 garoto so 
desloca 1 bloco de cada vez." 
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í 320 PSETÍ 16 , 96 ) , i :PRINT#i , "E o jogo aca 
ba quando o tempo terminar" 

1330 PSET < 40 , 128 ) , 1 s COLOR 8 : PR INTtt 1 , "TEC 
LE ESPAÇO PARA COMECAR" 

1340 IFSTR IG < 0 ) =0GOT 0 1340ELSECOLOR 15sC 
LS : RETURN 


ANÁLISE 

Nas linhas de 100 a 190 estão contidos os dados necessá- 
rios para a confecção do desenho dos balões, do balomaniaco 
(você!), dos tijolos e das paredes. Esses dados podem ser alte- 
rados a seu critério para produzir outros padrões. 

As instruções que aparecem no início do programa (linhas 
de 1260 a 1330) podem ser alteradas ou eventualmente elimi- 
nadas do mesmo, sem maiores consequências. 

Nas linhas de 450 a 490 o computador identifica a tecla 
pressionada e direciona o movimento do balomaniaco (através 
da função STICK). 

O resto do programa deixaremos para que você mesmo 
analise. 
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INSTRUÇÕES 

Além de ser o nome de um utilíssimo comando do BASIC- 
MSX, é também o nome de um dos personagens do filme que, 
coincidentemente possui o nome TRON. 

Quem teve o prazer de ver o filme, certamente deve ter 
gostado das cenas montadas por computador, em que o herói 
se digladia com inimigos pilotando motos que deixam atrás de si 
rastros sólidos. 

A mesma emoção sentirá quem tiver o prazer de pilotar 
este jogo no seu MSX, mesmo nào correndo o perigo de ser 
'apagado por uma curva imprecisa ou um túnel sem saída!! 

Já deve ter dado para perceber que o objetivo do jogo é 
não colidir com nada, mas não é apenas isso. A real emoção 
de se jogar TRON com um oponente humano são as situações 
e emboscadas que nenhum programa pode criar ou simular. 

O jogador 1, que joga com o ‘joystick" A, controla a moto 
vermelha (esquerda) e o jogador 2. que joga com o "joystick” B. 
controla a moto azul (direita). Caso você só tenha 1 "joystick”, 
veja mais à frente como alterar o programa. 

Ao contrário de outros jogos, o ponto de referência está 
dentro da moto, como se estivéssemos pilotando. Dessa ma- 
neira. os únicos comandos que necessitamos são para virar à 
esquerda e à direita. Por exemplo: se. na tela. nossa moto esti- 
ver andando para a esquerda, e desejarmos andar para baixo, se 
estivéssemos dentro da moto, este movimento corresponderia 
a virarmos para a esquerda! 

Portanto, se virarmos o "joystick” para a esquerda, qualquer 
que seja a direção e sentido em que estejamos caminhando, a 
moto irá virar para a esquerda, ou seja, no sentido anti-horário. 
O mesmo ocorre se virarmos o "joystick" para a direita: a moto 
virará no sentido horário. 
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Figura 5.1 — Programa TRON 


TRON 

10 'TRON 

20 ' Fernando da Costa Grossi 
30 r 

1 0000 OPEN"GRP:" FOR OUTPUT AS#i 
10010 KEY OFF 
10020 GOSUB 10390 
10030 DEFINT A-Z: RESTORE 
10040 Xi=10 : Y 1 =96 
10050 X2=244 : Y2=96 
10060 01=2: 02=0 
10070 Di=0: D2=0 
10080 Si=255 : S2=255 

10090 FOR X=i TO 7SREAD A , B : SOUNDA , B : N 
EXT X 

10100 SCREEN3 : COLOR 15,1,7: CLS 
10110 LI NE ( 0 , 0 ) - < 255 , 1 91 ) , , B 
10120 SOUND 7,60 

10130 A=STICK ( 1 ) : SOUND 0,Si:Si=Si-4 
10140 B=STICK ( 2 ) : SOUND 0,S2:S2=S2-4 
10150 IF A=7 AND D1=0 THEN Si=255: Di = i: 
01=01+1 

10160 IF B=7 AND D2=0 THEN S2=255: D2=i : 
02 = 02+1 

10170 IF A=3 AND Di=0 THEN Si=255: Di=i: 
01 = 01-1 

10180 IF B=3 AND D2=0 THEN S2=255: D2=i: 
02 = 02-1 

10190 IF A=0 THEN Di=0 
10200 IF B=0 THEN D2=0 

10210 IF Oi<0 THEN 01=3 ELSE IF Oi>3 THE 
N 01=0 

10220 IF 02 < 0 THEN 02=3 ELSE IF 02>3 THE 
N 02=0 

10230 IF 01=0 THEN Xi=Xi-4 ELSE IF 01=1 
THEN Y i=Y 1+4 ELSE IF 01=2 THEN Xl=Xi+4 E 
LSE IF 01=3 THEN Yi=Yi-4 
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10240 IF 02=0 THEN X2=X2-4 ELSE IF 02=1 

THEN Y2=Y2+4 ELSE IF 02=2 THEN X2=X2+4 E 

LSE IF 02=3 THEN Y2=Y2-4 

10250 IF POINT <X2,Y2>< >i THEN 10300 

10260 IF POINT <Xi,Yi)<>i THEN 10310 

10270 PSET (Xi,Yi),8 

10280 PSET ( X2 , Y2 ) , 4 

10290 GOTO 10130 

10300 A4="Jogador 1 venceu":GOTO 10320 
10310 A%="Jogador 2 venceu":GOTO 10320 
10320 SOUND 7,7: FOR X=0 TO 31: S0UND6,X 
: COLOR XM0D16: NEXT XsSOUND 7,63: COLOR, 

,5 

10330 FOR X= 0 TO 1000: NEXT X: COLOR 1, 
15,15: SCREEN2 

10340 PRESET < 56 , 88 ) : PR INT# 1 , AS 
10350 PRESET < 57 , 88 ) : PR INTttl , A% 

10360 IF STR IG < 0 ) =0 AND STRIG(l)=i AND S 
TR IG ( 2 ) =0 THEN GOTO 10360 
10370 GOTO 10030 

10380 DATA 7,255,8,15,9,15,1,1,3,1,0,255 
,2,255 

10390 SCREEN 2: COLOR 0,8,8: CLS: PI=4«A 
TN < 1 ) 

10400 DR AW"S32 Bh64,80 R4DLD3L2U3LU BM96 
,96 D2RU2LR2F2LH2 BM112,80 LDRBFR" 

10410 CIRCLE<112,96) , 16 , 0 , 0 , P 1/2 : CIRCLE 
(112,96) ,8,0,0, P 1/2 :CIRCLE< 144, 96) ,16,0 
10420 DRAW"BM160 ,80 D4RU2R2U2RD4H4" 

10430 PAINT(65,8i ) , 0 : P AINT ( 105 , 81 ) ,0: PA 

INT < 97,97 > ,0:PAINT< 106, 97) ,0íPAINT< 129,9 

7) ,0:PAINT< 161 ,97) ,0 

10435 PAINT<190,97),0 

10440 COLORI, 8, 4 

10450 PRESET<33, 170) 

10455 PRINTH1 /'Fernando da Costa Grossi" 
: PRESET (34,170) 

10456 PRINTHi /'Fernando da Costa Grossi" 
10460 IF INKEY%< >CHR%( 13) THEN 10460 ELS 
E RETURN 

10470 RETURN 
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ANÁLISE 

0 programa se divide em três blocos bem distintos: 
linha 10000 a 10120 : é a parte de inicialização das variáveis do 
programa. Note que a maioria das variá- 
veis sáo duplicadas, pois o jogo controla 
2 motos. 

linha 10130 a 10370: é o laço principal do jogo, onde as motos 
são controladas, as colisões analisadas e 
os créditos são dados ao vencedor, 
linha 10380 a 10470: são as linhas que montam a apresentação. 

Todo o desenho é montado com a cor in- 
visível. e somente depois de pronto a cor 
é mudada. 

Observem as linhas 10130 e 10140. com o comando STICK, 
que estão ajustados para os "joysticks" A e B. respectivamente. 

Caso você queira alterar alguns dos jogadores para o te- 
clado, basta alterar o primeiro ou o segundo comando STICK 
para'STICK(0). 
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Nos jogos de inteligência, normalmente, o adversário do 
operador é o próprio computador. Na realidade o duelo de inte- 
ligências não é entre o Homem e a Máquina como muitas pes- 
soas, afetadas pelo "complexo de Frankenstein", poderiam crer. 

O verdadeiro confronto é entre a mente do jogador e a do 
programador. Obviamente o programador tem a disposição a 
memória sem falhas e a incrível rapidez do micro, para suprir 
a inteligência que falta à máquina. 

Nesta seção são discutidos alguns jogos inteligentes, assim 
denominados mais por exigirem inteligência do joqador do que 
por simularem inteligência no computador. Apenas o último, 
OTHELLO, tem esta característica: o computador parece "pen- 
sar" as jogadas e, às vezes, nos surpreende com lances ines- 
perados. 

NO LABIRINTO e na BATALHA NAVAL espera-se que o leitor 
desenvolva a chamada INTELIGÊNCIA ESPACIAL, normalmente 
tão esquecida no ensino tradicional. 

No MEMÓRIA é reproduzido o clássico jogo que costuma 
ser realizado com cartões e com ele se objetiva o desenvolvi- 
mento da chamada MEMÓRIA VISUAL. 

O FORCABAS, apesar do nome, é um jogo extremamente 
original. O computador propõe à adivinhação do leitor palavras 
reservadas do BASIC MSX (incluindo o DISK BASIC) que ele lê 
em sua própria ROM. 
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Este programa é um simulador de labirintos tridimensionais 
que reproduz com grande realismo a visão de uma pessoa colo- 
cada em seu interior. O objetivo do jogador e caminhar através 
de suas passagens à procura da saida, de uma torma muito se- 
melhante à de um labirinto real. 

A característica mais marcante deste jogo é o efeito de 
profundidade (ou tridimensionalidade) conseguido pela apresen- 
tação perspectivada das paredes e passagens laterais do corre- 
dor visualizado. Em qualquer instante, o jogador deve ter em 
mente a ppsição na qual está e a direção para a qual ele está 
voltado (Norte. Sul. Leste ou Oeste). 

É interessante notar que na verdade, o labirinto não é tri- 
dimensional, mas bidimensional. Mesmo assim, ele é dito tri- 
dimensional devido ao efeito de perspectiva causado pelo pro- 
grama. 

Para jogar, comande RUN, e após alguns segundos aparecerá 
na tela a parte do labirinto visível da sua posição. Você dispõe 
então das seguintes opções: avançar (tecla ▲ ) virar para a es- 
querda (tecla ◄ ). virar para a direita (tecla ► ) e mapa (tecla ▼ ). 
Na opção mapa é indicada a planta do labirinto e a sua posição, 
bem como a sua direção. A saida se torna visível quando você 
está voltado para a mesma, a menos de cinco passos dela. 


Figura 6.1 — Programa LABIRINTO 

REM LABIRINTO 
REM MILTON MALDONADO JR . 

CLS s CLEAR í 000 : OPEN "GRP ' " FOR OUTPUT 
i : DIM A$ < i 9 , 25 > , X% < A 00 ) , Y% ( 400 > , DX ( 3 ) 
, DY ( 3 ) s FOR L=0 TO 3 : READ DX < L > , DY < L ) , Dí < 
L ) s NEXT L:P=0sX=2:Y=2 / :PRINT ,, Aguarde - pr 
ocessando o labirinto" 
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50 X%(P)=X:YZ(P>=Y 
60 D=INT<4*RND<-TIME)) 

70 I=X+2*DX(D> : J=Y+2*DY<D) 

80 IF I>i AND I <25 AND J>í AND J<Í9 THEN 
IF A% <J,I)< >"i" THEN X=I s Y=J:GOTO 120 
90 FOR D=0 TO 3:l=X+2«DX(D> :J=Y+2*DY<D) s 
IF I < 2 OR I >24 OR J<2 OR J>i8 THEN Íi0 
100 IF AS< J,I)< >"i" THEN X=I sY=J: GOTO 120 
110 NEXT DsP=P-i:IF P>1 THEN X=X%<P):Y=Y 
VA?) :GOTO 60 ELSE 140 

120 P=P + i:A$<Y,X)="i ,/ s A 4 (Y-DY(D), X-DX < D > 
) ="1" * GOT O 50 

130 DATA 1,0, LESTE, 0,-1, NORTE, -1,0, OESTE 
,0,1, SUL 

140 X=2 s Y=2 : D=3 ! A4<i9,24)="S ,, 

150 GOSUB 450 

160 SCREEN 2:CLS:ES=<D+1 )MOD4:DI=D-i : IF 
Dl < 0 THEN DI=3 

170 FOR 1=0 TO 4 : E4=A4 < Y+I «DY <D)+DY(ES), 
X+I«DX (D)+DX<ES) ) : D%=A$ < Y+I«DY (D)+DY<DI > 
,X+I#DX<D)+DX<DI> > sF*=A5<Y+<i+I)«DY<D> ,X 
+ < l + I > *DX < D ) ) 

175 ON 1+1 GOSUB 250,290,330,370,410 

180 IF FS="i" THEN NEXT I 

190 C=STICK ( 0 ) s IF C=0 THEN 190 

200 IF C=3 THEN D=D-UIF D<0 THEN D=3 

210 IF C=7 THEN D=D+1:IF D=4 THEN D=0 

220 IF C=i AND A% ( Y+DY < D > , X+DX < D ) ) =" i" T 

HEN X=X+DX<D) sY=Y+DY(D) :C=0 

230 IF C=5 THEN GOSUB 450:SCREEN 2 

240 GOTO 160 

250 IF E$< >"" THEN LINE < 1 0 , 153 ) - < 46 , 153 ) 
sLINE-(46,27) : LINE- < 1 0 , 27 ) ELSE LINE <10 
,i80)-(46,153) :LINE-< 46,27 > :LINE-< 10,0) 
260 IF D%< > // " THEN LINE<246,i53>-(210,í5 
3) sLINE-(210,27) : L INE- < 246 , 27 > ELSE LINE 
<246, 180 )-<210, 153) :LINE-< 210,27 ) :LINE- 
<246,0) 

270 IF Fí="" THEN LINE < 46 , 27 ) - < 210 , 153 ) 

, , 8 ELSE IF FS="S" THEN LINE <46,27)-<2í 
0,153) , ,BF 


46 



280 RETURN 

290 IF EÍO"" THEN L INE < 46 , i 30 ) - ( 76 , í 30 ) 
5 LINE- ( 76 , 50 ) s LINE- ( 46 , 50 > ELSE LINE (46 
, í53>-< 76, 130) : LINE- (76,50 > : LINE- (46, 27) 
300 IF DÍO"" THEN LINE ( 2i 0 r í 30 ) - ( í 80 r í 3 
0) :LINE-(180,50> : L INE- ( 21 0 , 50 > ELSE LINE 
(210, 153) -(180, 130) :LINE-( 180,50) «LINE- 
(210,27) 

310 IF Fí="" THEN LINE ( 76 , 50 ) - ( 180 , 130 ) , 
, 8 ELSE IF FÍ="S" THEN LINE (76,50>-(i80 
,130) , ,BF 
320 RETURN 

330 IF E5<>"" THEN L INE ( 76 , 1 1 4 ) - ( 96 , 1 1 4 ) 
:LINE-(96,6Ó) s LINE- ( 76 , 66 ) ELSE LINE (76 
,130)- (96, 114) : LINE- (96, 66) : L INE- ( 76 , 50 ) 
340 IF DÍO"" THEN L INE ( 180 , 1 1 4 ) - ( 160 , 1 1 
4 ) : LINE- ( 1 60 , 66 ) 5 LINE- ( 1 80 , 66 ) ELSE LINE 
( 180, 130) -(160,1 14 ) :LINE-( 160,66) :LINE- 
(180,50) 

350 IF F%= ,,// THEN L INE ( 96 , 66 ) - ( 1 60 , 1 1 4 ) , 
, B ELSE IF FÍ="S" THEN LINE (96,66)-(160 
,114) , , BF 
360 RETURN 

370 IF EÍO"" THEN LINE ( 96 , 107 > - ( 106 , 107 
) sLINE-(106,75) :LINE-(96,75) ELSE LINE ( 
96, ii4)-( 106, 107) s LINE- (106,75) : LINE- (96 
,66) 

380 IF Dí( >"" THEN L INE ( 1 60 , 1 07 ) - ( 150 , 1 0 
7) :LINE-(150,75) : L INE- ( 1 60 , 75 ) ELSE LINE 
( 160, 114 >-(150, 107): LINE- (150, 75) «LINE - 
(160,66) 

390 IF F%="" THEN LINE ( 1 06 , 75 ) - ( 150 , 107 
),,B ELSE IF FÍ="S" THEN LINE (106,75>-( 
150,107), ,BF 
400 RETURN 

410 IF EÍO"" THEN LINE ( 1 06 , 1 03 ) - ( 1 1 1 , 1 0 
3 ) s LINE- ( 1 1 1 , 80 ) s LINE- (106,80) ELSE LINE 
( 106, 107) -(111,103) :LINE-( 11 1,80) :LINE- 

(106.75) 

420 IF DÍO"" THEN L INE ( 150 , 103 ) - ( 145 , 10 
3 ) : LINE- (145,80) s LINE- (150,80) ELSE LINE 
(150, 107 >-(145, 103) : LINE- (145,80) sLINE- 

(150.75) 
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430 IF F%-"" THEN LINE ( í i í , 80 ) - ( í 45 , 103 ) 
, , B ELSE IF FÍ="S" THEN LINE <íii,B0)-<i 
45 , í 03 ) , , BF ELSE PRESET ( í 26 , 86 ) : PR INT « 

í , "?" 

440 RETURN 

450 SCREEN 0:PRINT "Planta do labirinto" 
SPRINT : Aí < Y , X ) ="*" s FOR I = i TO Í9:F0R J=i 
TO 25: IF A*<I,J)="i" THEN PRINT " "; EL 
SE IF A% < I , J ) ="*" THEN PRINT"*"; ELSE IF 
A%< I , J)="S" THEN PRINT CHRK204); ELSE 
PRINT CHRS ( 219); 

460 NEXT SPRINT: NEXT s A4 < Y r X)="i"sPR INTDS ( 
D) 

470 IF ST ICK ( 0 ) =0 THEN 470 ELSE RETURN 



ANÁLISE 

O programa começa criando na memória um espaço bidi- 
mensional de 19x25 posições através do “array" AS( 1 9.25). 
Inicialmente, entretanto, este espaço está "fechado", ou seja, 
está todo emparedado. O programa então começa a “cavar tú- 
neis" na parede sólida até ter aberto passagens suficientes 
para a realização do jogo. 

O algoritmo de abertura de túneis (linhas 50 a 120) é par- 
ticularmente interessante, pois sempre consegue unir por um 
caminho contínuo a entrada e a saída, e a espessura das pare- 
des é sempre igual à espessura das passagens. E, quando o 
labirinto é terminado, o jogador pode decorar o desenho do 
mapa através de uma planta que é mostrada na tela. pois isto 
será importante na hora de tentar sair do labirinto. 

A movimentação do jogador é feita variando-se suas coor- 
denadas X e Y em uma das direções, leste (D = 0), norte (D =1), 
oeste (D = 2) e sul (D = 3). através dos vetores DX(D) e DY(D). 
Para saber se o movimento do jogador é válido (isto é, se não 
colidiu com uma “parede"), é feito um teste na linha 220 que 
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habilita ou não o incremento das coordenadas. 

O leitor mais exigente certamente não ficará satisfeito com 
esta versão "protótipo" do jogo. Uma apresentação inicial se 
faz conveniente bem como uma tela de congratulações pela 
saída do labirinto. E. para os mais curiosos, existe a possibili- 
dade de se visualizar o processo de montagem do labirinto 
em tempo real. 

A segunda listagem trás estas alterações, às quais podem 
ser acrescentadas outras ao gosto do leitor. Que tal fazer, por 
exemplo, o fugitivo aparecer inicialmente em uma parte alea- 
tório do labirinto? 

Lembrete: use X e Y pares, para não haver o risco do fugi- 
tivo "cair" numa parede... Outra sugestão é fazer a direção 
inicial ser aleatória Norte. Sul. Leste ou Oeste?) e. para com- 
plicar mais ainda, bloquear a visualização da planta durante o 
jogo... 

Figura 6.2 — Algumas implementações 


A 5 PR INT s FOR I = í TO i9:PRINT " "jSTRING* 
( PS P 1 9 ) :: NFXT 

ííVnEXT D : P=P-i ! IF P>i THEN X=X%(P):Y==Y 
Z(P) SLOCATE X , Y+i SPRINT"*" ; CHR® < 8 ) ; s FORW 
--=0TOÍ0:NEXTW:PRINT" "sGOTO 60 EL. SE 1 40 
120 P=P + i :A<&<Y,X>="i":LOCATE X , Y + i = PR INT 
" " : AS» ( Y--DY < D > , X-DX ( D ) ) = "i" : LOCATE X-DXÍ 
D) r Y-RY<D>+i : PR INT" "sGOTO 50 

225 IF C=i AND AS» ( Y+DY < D ) , X+DX ( D ) ) ="S" T 
HEN i 000 

226 P=P+i 

.1.000 SCREEN 0 SPRINT " C 0 N G R A T 

U L A C 0 E S" SPRINT: PR INT"Uoce consegui 
u sair em" ; P ; "passos ." s PR INT s PR INT" Joga 
novamente ?" 

1.020 A*=INPUTS(i ):IF A*="s" OR ASi="S" TH 
EN RUN 

1030 IF ASj="n" OR ASi="N" THEN END ELSE 1 



49 



INSTRUÇÕES 

Um dos programas mais tradicionais para microcomputado- 
res é o "Jogo da Forca", cujas regras pressupomos conhecidas 
A maioria desses programas apenas monitoram o jogo entre 
duas pessoas: uma introduz a palavra e a outra tenta adivinhar. 

Alguns poucos programas conseguem armazenar algumas 
palavras e deoois sortear uma delas para gue um único jogador 
tente adivinhar Em geral, esses programas são bem simples 
e fáceis de se fazer. Talvez por isso, um dos primeiros jogos que 
qualquer programador iniciante tenta fazer assim que adquire um 
microcomputador, seja esse. 

A seguir, apresentamos a nossa versão do "Jogo da Forca” 
para o MSX. 

Ele utiliza vários recursos da máquina, como cor, som, mo- 
vimentos (com SPRITEs), etc, mas o que mais o diferencia de 
outras versões é que ele joga sorteando palavras do BASIC MSX 
armazenadas na ROM. Assim, ao jogar com o micro, o usuário 
além de se entreter fica conhecendo melhor o vocabulário do 
BASIC MSX. 

Outra diferença é que o réu (a ser enforcado) não é cons- 
truído aos poucos (primeiro a cabeça, depois um braço, etc) mas 
aparece desde o inicio de corpo inteiro. A cada erro cometido, 
ele se aproxima mais da forca. 

Digite o programa com atenção. Ao introduzir as linhas de 
418 a 740 redobre o cuidado. 

Para jogar, vá introduzindo as letras que você crê que façam 
parte da palavra incógnita. A cada erro cometido, o réu (você) 
se aproximará mais da corda. Ao ser enforcado, a palavra incóg- 
nita será apresentada para que sua “alma" a veja! 

Enquanto estiver a caminho do Paraíso, sua alma escutará 
uma bela marcha fúnebre. Caso você seja inocentado, uma mú- 
sica festiva será tocada. 
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Figura 7.1 — Programa FORCABAS 

10 FORCABAS 

20 Renato da Silva Oliveira 

30 ' 

40 ' INTRODUZ A PALAURA 

60 POKE &HFCAB , í 

70 COLORÍ, 7, 7JSCREEN0, ,0:CLEAR4000 
80 L0CATE4 ,4:PRINT"F O R C A":PRINT 
90 PRINT" DIGITE RETURN E ESPERE ALGUNS 
INSTANTES. ":KEYOFF 
100 INPUTA%:BEEP:S5-" /, :INTER0AL0N 
110 ONINTER VAL=6G0SUB 1460 
í 20 A=65536! WRND(-TIME) 

130 A%=163#RND ( A ) +1 

140 EN=14962:AÍ= ,/,, :l=65:C=0 

150 A*=AS+CHRÍ( I) 

160 P=PEEK<EN) :ô=PEEK(EN+i> :Pl=CHR%(P> 
170 IF P < 128 THEN AS=AÍ+P% : GOTO 220 
180 AS=AS+CHRl ( P-128 ) 

190 EN=EN+í :C=C+1 
200 IFC=AXTHEN280 

210 IFPEEK < EN+ 1 ) < >0THENA$="" s A$=A%+CHR% < 
I) 

220 IFPEEK <EN> < >0THEN260 
230 AS="":l=I+i:QS=CHRÍ<I> 

240 IFQí =" J ,, ORQ%="Q"THEN 260 
250 A%=AÍ+QS 
260 EN=EN+i 

270 IF EN< = 15649 THEN 160 
280 IFTE<200THEN280ELSEINTERUALOFF 
290 SS=S4+" " :IFLEN(S%)< LEN < A% ) THEN290 
300 C%=" " 

310 ' FAZ A TELA E A FORCA 

320 

330 COLORI, 7, 7:SCREEN 2,2,0sKEY OFF 

340 OPEN"GRP : "FOR OUTPUTASHÍ 

350 FOR F=2 TO LEN(A4)+i 

360 L INE ( B»F-2 , 29 ) - ( 8*F+6 ,40), 1,6 

370 PRESET<8*F,40> s PR INTHi , 

380 NEXT F 
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390 LI NE <20,i9i)-< 200 ,80) , 9 , 8F 

400 PSEK50, 190) ,ií 

4Í0 DRAW"eirieirieiriu90r35d2" 

420 DRAW"133d88f ir if ir if ir il 13" 

430 DRAW"bm59 , i64r 55d21 55" 

440 DRAU"bmí04, 190eirieir ieir iu20r2" 
450 DRAW"d20f ir ifirifirili3" 

460 DR AW"bm+4 , -4h i9r 2f 17" 

470 DRAU"biw-50,+2ei912gi7" 

480 DRAW"bm+0 r -72ei212gi0" 

490 DR AW"bm+25 , +0ui0d30f 2d3g í 1 2" 

500 DRAW"hiu3e2riu3" 

5i0 DRAW"bmii3, Í68ri5d6ri5d6ri5dóri5" 
520 DRAW"d51 iu41 Í5u61 Í5u61 Í5u61 i4" 

530 DRAW"bm77,i90eirieiriei" 

540 DRAW"r3f ir if ir if ir i 1 14" 

550 DR AW"bm+7 , -4ei2f ig i i" 

560 DR AW"bm-3 , +0h í 2g if 12" 

570 FOR F=i TO 32 

580 READ C4:A=VAL<"«H"+CÍ> 

590 DÍ-DÍ+CHR4 ( A ) :NEXT F 
600 SPRITE%(i)=Dí: D%-"" 

610 FOR F=i TO 32 

620 READ CS:A=VAL<"&H"+C<6> 

630 D4=D*+CHRS(A) SNEXT F 
640 SPRITE%<2)=D$: D % == /x " 

650 PUT SPRITE2,<i73,i60>,l,i 
660 PUT SPRITE3, (173,175) ,4,2 
670 DAT A3,7,5,7,2,i,3f,7F 
680 DATA7E,6F,6E,6F,66,37,iA,F 
690 DAT AC0 , E0 ,A0,E0,40, 80 , FC , FE 
700 DATA76,F6,76,F6 r 66 , EC , 58 , F0 
7i0 DAT A7 ,7 ,7 ,7 ,7 ,7 ,7 , 6 
720 DATA6,3,3,3,3,3,3, iD 
730 DAT AE0 ,E0,E0,E0,E0,E0,E0,60 
740 DAT A60 , C0 ,C0,C0,C0,C0,C0,B8 
750 ' TENTATIVAS DO ACUSADO 
760 

770 B=8 : IFLEN < A$ > >8THENB=LEN<A4> 

780 FOR F=i TO B 

790 ' VERIFICA SE ACERTOU 
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800 'tt###################**####**#********** 

8i0 IF S*=A% THEN 1380 
820 ' ENTRA COM A LETRA 
830 

840 B*=INKEY$:IF B%="" THEN 840 

850 BEEP = IF LEN(BS)Oi THEN 840 

860 ' MOSTRA LETRA NO VIDEO 

870 'ttttttHtt#####****##########****#**#** 1 ***** 4 * 

880 A=0:F%=F%+BS 

890 PSET (24,84) ,9sPRINTtti,F$ 

900 ' VERIFICA LETRA CERTA 
910 

920 IP=0 5 FOR G=i TO LEN(AS) 

930 IF MID% (A%,G,i)< >B4 THEN 960 
940 PRESET ( 8* < i+G ) ,32) s PR INTHi , B$ 

950 MID4 ( S4 , G , 1 ) -B% : A=A + i : IP = i 
960 NEXT G : F=F--IP 
970 IF A< >0 THEN 1350 
980 ' MOVE O REU 

1000 IFF=1THENPUTSPRITE2, (159,153) ,1,1 :P 
UTSPRITE3, (159,169) ,4,2 

1010 IFF«2THENPUTSPRITE2, (143,147) ,1,1 *P 
UTSPRITE3, (143,163) ,4,2 

1020 IFF=3THENPUTSPR ITE2 , ( 127 , 141 > , 1 , 1 «P 
UTSPRITE3, (127,157) ,4,2 

1030 IFF=4THENPUTSPR ITE2, ( 1 1 1 , 135 ) , 1 , 1 : P 
UTSPRITE3, (111, 151), 4, 2 

1040 IFF=5THENPUTSPRITE2, (95,131) ,1,1 sPU 
TSPRITE3, (95, 147) ,4,2 

1050 IFF=6THENPUTSPRITE2, (85,131) ,1,1 sPU 
TSPRITE3, (85,147) ,4,2 

1060 IFF=7THENPUTSPRITE2, (76,131) ,1,1 sPU 

TSPRITE3, (76,147) ,4,2 

1070 IF F < >8 THENÍ 350 

1080 ' MORTE DO REU 

1090 

1100 PLAY"tli0rni00s0vl5","t 110VÍ5" 

1110 PLAY"olbbbbo2dcttcHolbbaHbr8" , "o3bbb 
bo4dc#ctto3bbattbr 8" 

1120 PLAY"oibbbbo2dc:#cttoibbattbr 8" , "o3bbb 
bo4dcttc#o3bbattbr8" 
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1130 PLAY"o2ddddfeeddcHdr8","o4ddddfeedd 
cHdr 8" : PLAY"bagf Hf Hd" , "bagf Hf Hd" 

1140 PLAY"bagf Hf Hd" , "bagf Hf Md" 

1150 PLAY"oibbbbo2dcHcMoíbbaHbrí6", "o3bb 
bbo4dc:HcHo3bbaHbr 16" 

1160 F0RF=1T032 

1170 READC4 : A=UAL < "&H"+C4 ) s Dí=DS+CHR5 < A > 
1180 NEXTF :SPRITE%<3> =D% : Dí=="" 

1190 LINE(78,120)-(88,Í40) , 9 , BF 
1200 COLOR 11 :DRAW"BM84, 120D27" 

1210 PUT SPRITE 2, (77, 147), 1,1 
1220 FORF=1TO40STEP2 
1230 PUT SPRITE3, (77,165) ,4,3 
1240 FORG=ÍTO30+5*F:NEXTG 
1250 PUT SPRITE3, (77,166) ,4,2 
1260 FORG=1TO90+2#F:NEXTG,F 
1270 PSET(83,i50),l:PSET(86,150),i 
1280 DATA 0,7,F,1F,3F,7E,FC,F0 
1290 DATA F0,78,3C,1C,E,7,6,C 
1300 DATA 0,E0,E0,F0,F0,F0,70,70 
1310 DATA 70, 70, 70, 70, 70, 70, 70, 2C 
1320 PRESET (20,8) : COLOR 6 

1330 PRINTMi, "ASSIM TERMINAM OS CULPADOS 
! " 5 PRESET ( 16,32) : COLOR 1 : PR INTMi ,A$ 

1340 GOTO 1440 
1350 NEXT F 
1360 ' FINAL 

1370 'HHHHHHHHHHHHHHHHHHHHHHHHHHHHHMH 

1380 PRESET (10,10) 

1 390 PLAY"vi5t 200" , "ví 5t 200" , "ví 5t 200" 
1400 PLAY"o5co4aHggHgf","o6co5aHggHgf" 
1410 PLAY"o5cdfedco4aaHag", "o6cdf edcoSaa 
Hag" 

1420 PLAY"gagfdgafaaHo5co4af", "gagfdgafa 
aHo6co5af " 

1430 PRINTH1, "DOCE ESTA LI ORE" 

1440 PRESET (14,18) 

1450 PRINTH1, "DIGITE RETURN PARA NOUO JO 
GO" : LINEINPUTA4--RUN 

1460 TE=TE+1 : PLAY"06AH64" , "07CH32" s RETUR 
N 
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ANALISE 

Os principais blocos do programa são iniciados por linhas 
REM. Algumas instruções mais relevantes são: 

1 — A linha 60 trava a tecla CAPS LOCK em maiusculas. 

2 — A linha 1490 é uma sub-rotina para geração de sons com 

eco durante o sorteio de uma palavra reservada. 

3 _ As linhas 120 e 130 sorteiam um número entre 1 e 163 

e o armazenam na variável A%. 

4 _ As linhas entre 140 e 270 buscam a A%-ésima palavra 

reservada na ROM e a armazena na variável AS 
Os erros mais frequentes ocorrem nas instruções DRAW 
(desenho da forca). PLAY (músicas para morte e libertação do 
réu) o DATA (desenho dos SPRITE s). 

Caso você tenha algum problema na execução do progra- 
ma. releia a NOTA DO EDITOR. 

A palavra formada pelas letras certas do acusado é arma- 
zenada em S$ Quando SS e AS forem iguais, o réu é inocen- 
tado (linha 81Ü). 
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^MEMÓRIA 
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INSTRUÇÕES 

Esle programa é uma adaptação do Jogo da Memória. As 

principais regras desse jogo estão enumeradas a seguir: 

(1) Existem 88 pares de cartões: 

(2) Cada cartão tem um caractere desenhado numa das laces 
e a outra face mascarada de modo a ser indistingüível (como 
as cartas de um baralho). 

(3) Podem participar de 1 a 6 jogadores: 

(4) Os cartões são embaralhados com as faces desenhadas para 
baixo e, depois, são dispostos em 11 linhas de 16 colunas 
cada; 

(5) O jovo inicia com um lance do jogador 1 e depois dele jo- 
gam. sucessivamente os jogadores 2, 3. 4, 5 e 6; 

(6) Cada lance consiste em desvirar dois cartões. Se eles forem 
iguais, permanecerão com os desenhos para cima, 1 ponto 
será acrescentado ao jogador que executou o lance e ele 
terá direito a outro lance. Se eles forem diferentes, serão 
desvirados e o próximo jogador deverá fazer seu lance; 

(7) O jogo termina quando os 176 cartões (88 pares) estiverem 
com os desenhos para cima e vencerá o jogador com mais 
pontos; 

(8) Para desvirar um cartão, o jogador deve mover o' quadrado 
vermelho da parte inferior da tela com as teclas de setas e 
colocá-lo sobre o cartão escolhido. Pressionando a barra de 
espaços, o cartão sobre o quadrado será desvirado. 
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Ao digitar o programa, cuidado com as multi-instruções! 
Lembre-se, também, que o apóstrofo usado nas linhas 10, 20, 
30. 40, 460, 610 e 770 substitui a instrução REM. 



Figura 8.1 — Programa MEMÓRIA 


10 '* MEMÓRIA (20/05/86) * 

20 '* Renato da Silva Oliveira * 

30 'fc*#****#**#**#»*******#***##***# 

40 r #HHH inicial i zacao 

50 COLOR 15,4:SCREENi , ,0:KEYOFF 

60 TIME=65536 ! #RND(-TIME) : L0CATE8 , í 0 

70 PR INT"M E M 0 R I A" : L0CATE3 , 15 

80 INPUT"Quantos jogadores (i a 6)";N 

90 IF N< 1 OR N >6 OR NOINT(N) THEN 70 

100 COLORIS, 4,7:SCREEN2, 1 :DIM M(15,10) 

110 OPEN"GRP:" FOR OUTPUT AS «1 

120 FOR F=0 TO 255 STEP 16 

130 LI NE <F,0)-(F,1 75 ) , 7 5 NEXT F 

140 FOR F=0 TO 176 STEP 16 

150 L INE < 0 , F ) - ( 255 ,F) , 7 : NEXT F 

160 L I NE <0,176)-< 255 ,19i),i,BF 

170 PSET<30, 180) , 1 : PR INTtti , "AGUARDE ! 

( embaralhando) " 

180 PSET ( 31, 180 ), i: PR INTtti, "AGUARDE! 

( embaralhando) " 

190 CT=1 : FOR F=0 TO 10 
200 FOR G-0 TO 7 

210 M ( G , F ) =CT !M(G+8,F)=CT:CT=CT+i 

220 PLAY"1 16s0m5000n"+STR$(CT) :NEXTG,F 

230 FOR F=1 TO 528 

240 A=RND ( F ) * 16 s B=RND ( 2*F ) * 1 1 

250 C~ : RND (3*F)*16s D=RND (4#F)#li 

260 SWAPM (A,B) ,M(C,D) : PLAY" 1 16si3m300 ,/ 

270 PLAY"N"+STR% (M(A,B) ) : NEXT F 

280 SPRITE$( 1 )=STR INGS (8,255) 

290 J=i : DIM P(N),V(i),W(l,i),X(i,i) 

300 L INE (0,i76)~( 255 ,191) , i , BF 
310 PSET( 10, 180) , 1 

320 PRINTHi," JOGADOR"; J;" PONTOS 

" ; P ( J ) 

330 ERASE O , W , X : GOSUB 460 : STR IG ( 0 ) OFF 

340 PUT SPRITE i,(X,Y),0,í 

350 IF 0(0)00(1) THEN 400 

360 P( J)=P( J)+i:H=H+i:IF H=88 THEN 770 
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370 h<X<0,0> ,X(0, i > >=255 
380 M(X(l r 0),X(i,l>>=255 
390 GOTO 440 

400 FOR G=i TO 500 : NEXT G 

4i0 L INF <W(0,0) + í,W(0,i)+2)-<W<0,0) + i5,U 
< 0 r 1 ) + 1 6 ) , 4 , BF 

420 LINE(W(i,0)+i,W(i,i)+2)-<W(i,0)+í5,W 

< 1 r 1 ) + i6) r 4,BF 

430 J=J+i:IF J >N THEN J=i 

440 LINE(70,i80)-<250,i88),i r BF 

450 GOTO 310 

460 '##*♦# movimento do cursor 

470 STR IG ( 0 ) ON : ON STRIG GOSUB 610 

480 X=il2:Y=i75:IQ=0:DIM O < 1 > , W < 1 , 1 > , X < 1 

,i> 

490 PUT SPRITE í,(X,Y),9,i 
500 A=STICK ( 0 ) 5 IF A=0 THEN 590 
510 X=X~16# < A > 1 AND A<5> 

520 X-X+16* ( A > 5 ) 

530 Y=Y~i6* ( A >3 AND A<7) 

540 Y=Y+16# ( A< 3 OR A=8> 

550 IF X<0 THEN X=0 

560 IF X >240 THEN X=240 

570 IF Y > 175 THEN Y=175 

580 IF Y< 0 THEN Y=-i 

590 FOR G=1 TO 20: NEXT G 

600 IF IO< 2 THEN 490 ELSE RETURN 

610 escolha da peca 

620 STR IG ( 0 > OFF 

630 CZ=X/16:LZ=<Y+1 >/16: IFLZ=i 1THENLZ=10 

640 IF M ( CZ , L% ) =255 THEN 760 

650 IF IO=i AND W (0,0) =XANDW (0,1 ) =YTHEN7 60 

660 IF Y=175 THEN 760 

670 L INE <X+i ,Y+2)-<X + i5,Y+16) , 15 r BF 

680 W< IQ,0>=X:W< 10, 1 >=Y 

690 X<IQ,0)=CZ:X(IO,i) =LZ 

700 0(I0)=M(CZ,LZ) :IQ=IQ+1 

710 M4=CHR4 ( 88+M ( CZ , LZ > > 

720 COLOR 7 : PSET (X+4,Y+5> , 15 

730 IFM ( CZ , LZ ) > 33THENPR INTtt 1 , : GOT 0750 

740 PRINTttl,CHRÍ< 1 > +CHR í ( 64+M < CZ , LZ > > 
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750 BEEP .'COLOR Í5 

760 STR IG ( 0 ) ONSRETURN 

770 ”#### rotina de final izacao 

780 LI NE <0,176)-< 255 , 191 ) r 1 , BF 

790 PSET(30,i80> F l:PRINTtti,"0 JOGO TERMI 

NOU ! " 

800 FOR F=i TO 1000 : NEXT F 

810 SCREEN 1 

820 FOR F=i TO N 

830 PRINT "Jogador" ;F ? " : P < F ) 

840 IF P ( F ) >MX THEN MX=PCF)sJ=F 
850 NEXT F 

860 PRINT:PRINT:PRINT 

870 PRINT "O vencedor foi o Jogador";J;" 
! " 

880 PRINT:PRINT:PRINT 

890 PRINT"Digite a barra de espaços" 

900 PR INT"par a novo jogo !!!" 

910 IF STR IG ( 0 ) =0 THEN 910 ELSE RUN 


ANALISE 

As linhas REM dividem o programa em suas partes prin- 
cipais. 

Os cartões são armazenados na matriz M(1 5.1 0) e os de- 
senhos são simplesmente caracteres do próprio micro (letras, 
símbolos gráficos, etc). 

As linhas 170 e 180 fazem um tipo mais cheio de impressão 
na SCREEN 2. 

Após estudar detalhadamente o programa, experimente fa- 
zer as alterações sugeridas a seguir: 

* Dimensione uma matriz DS(88) e insira em cada um de 
seus elementos uma sequência de sub-comandos gráficos para 
serem usados por DRAW. Ao invés de desenhar caracteres (de 
1 a 88) nos cartões, desenhe os elementos (de 1 a 88) dessa 
matriz. 

Faça um par de peças "CORINGAS". que a cada rodada, 
troquem de lugar com duas outras peças. Isso tornará o jogo 
mais difícil! 

Tente fazer o jogo na SCREEN 1, redefinindo os carac- 
teres de 1 a 88. 
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INSTRUÇÕES 


Esse jogo não é o tradicional Batalha Naval, já bastante 
conhecido, onde dois competidores posicionam suas esquadras 
em um campo quadriculado e cada um tenta afundar os navios 
do outro. 

A finalidade desse jogo é também afundar navios porém, 
apenas aqueles posicionados pelo computador. Trata-se de um 
jogo de estratégia, memória e percepção visual. 

O computador escolhe aleatoriamente cinco posições e nelas 
coloca os seus navios. Sua missão é tentar afundá-los. Para isso, 
eles serão mostrados assim que a tela estiver pronta e você 
pressionar uma tecla qualquer. Os navios serão, no entanto, mos- 
trados em perspectiva e durante alguns segundos apenas. Você 
deve, neste intervalo de tempo, avaliar as coordenadas dos na- 
vios e memorizá-las pois eles sumirão do seu campo visual. 
Quando isso acontecer, você terá dez tiros para tentar afun- 
dá-los. 

Os tiros devem ser dados informandp ao computador as 
coordenadas da posição que você pretende atingir. Informe pri- 
meiro a coordenada horizontal (uma letra de A a J) e depois a 
vertical (um número de 0 a 9) e finalmente confirme o tiro pres- 
sionando a tecla "S". 

Se o computador não aceitar as coordenadas que você en- 
trou, pressione a tecla "CAPS LOCK" uma única vez e tente 
de novo. 

Caso você erre o tiro será pintada de azul a posição cor- 
respondente no mapa quadriculado. Caso acerte, ela será pintada 
de vermelho e serão computados os pontos. O numero de pontos 
que você ganha por afundar um navio é tanto maior quanto mais 
navios já tiver afundado e tanto maior quanto mais avançada for 
a fase em que você se encontra. 

Para passar para uma nova fase. todos os cinco navios devem 
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ser atingidos. Nesse caso. outras posições serão sorteadas para 
cinco novos navios e o jogo recomeça com a sua pontuação man- 
tida e mais dez tiros. 

Ouanto mais avançada for a fase. maior será a dificuldade 
pois menor será o tempo em que os navios serão mostrados. 

Caso você dê os dez tiros, numa fase qualquer, e não con- 
siga afundar todos os navios, o jogo termina. 

Figura 9.1 — Programa BATALHA NAVAL ■ 3D 


100 ' BATALHA NAVAL 

110 ' LUIZ TARCÍSIO DE CARVALHO JR 
120 OPEN"gr p : "FOR OUTPUT ASM 1 
130 DIMM (10,10) 

140 SCREEN2:HI=0:SC=0:Q=0:U=0 

150 TA=10: COLOR 15,1,1 sCLS 

160 PSET (206, 100) , 1 :C0L0R8:PRINTHi /'RECO 

RD" 

170 PSET (198,110) ,i! COLOR 15s PR INTWi , Hl 
180 PSET (206, 130) , ÜCOLOR 8 s PR INTtti /'PONT 
OS" 

190 PSET < 198, 140) , 1 s COLOR 15 s PR INTtti ,SC 

200 PSET(206, 160) ,l:C0L0R8:PRINT«i, "FASE 
// 

210 PSET< 198, 170) , 1 : COLOR 15 : PR INT# 1,0+1 

220 F0RX=152T0232STEP8 

230 LINE(X,0)-(X,80) , 11 sNEXTX 

240 FORY=0TO80STEP8 

250 L INE < 1 52 , Y ) - < 232 , Y ) , 1 1 s NEXTY 

260 C0L0R4: F0RX=152T0224STEP8 

270 PSET (X+2,85) ,i:PRINT#i , CHR4( (X-152)/ 

8*65 ) : NEXTX 

280 FORY=0TO72STEP8 

290 PSET(233,Y> , 1 : PR INTtti , 9- ( Y/8 ) : NEXTY 

300 LINE < 50 , 90 ) - ( 150 , 90 ) ,5 

310 LINE-Í200, 190) ,5 

320 LINE- (0,190), 5 

330 LINE- ( 50 , 90 ) ,5 

340 PAINT (100,189) ,5 

350 COLORIS, 1 
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360 SPRITESd )=CHR4<&H40)+CHRK«H6)+CHRS 

< &H30 > +CHR5 ( &H12 ) +CHRS ( &H58 ) +CHR5 < &H59 ) + 
CHR% < &HFB ) +CHRI ( &H7B ) 

370 SPRITEÍ<2) =CHR$ ( &HC ) +CHR4 < &H1E ) +CHR% 

< SHFF ) +CHR5 < &H7F ) +CHR% ( &H0 ) +CHR% < &H0 ) +CH 
R5 < &H0 ) +CHR5 ( &H0 > 

380 GOSUB840 

390 FOR I=0T 04 : X=5+5*Y < I > +X (I)«(i9-Y<I) ): 
Y=i80-Y< I )*10:PUTSPR ITEI , < X , Y > , 15,2:NEXT 
400 TIME=0 : T 1=0*300 : IFTI > 1200THENTI=i000 
4i0 IFTIME< ( í 200-TI ) THENG0T04Í 0 
420 FOR I=0TO4 : PUTSPR ITEI, (0,0) ,0,2: NEXT 
430 GOSUB500 : GOSUB450 : GOSUB750 
440 IFTA=0THENGOT O930ELSEGOT 0430 
450 TA=TA-i: GOSUB690 

460 S0UND6 , 3i : S0UND7 , 199 : S0UND8 , í 6 : SOUND 
9 , Í6 : SOUND10 ,16: S0UNDÍ2 , 20 : SOUND 1 3 , 0 
470 X=5+5*KY+KX«(19-KY) : Y=i80~KY*10 : PUTS 
PRITE0, (X,Y) ,15,i : FOR 1 = 1 TO200 : NEXT 
480 PUTSPRITE0, (X,Y) ,0,1 
490 RETURN 

500 LINE < 30 ,i2)-(í40,4i),i,BF 

510 PSET ( 30 ,12) ,í:PR INTtti , "X ?<A-J) 

520 GOSUB670 

530 K=ASC (A%):IFK >64ANDK < 75THEN550 
540 GOT 0520 

550 KX=K-65:PRINTtti,A4 

560 PSET(30,20) ,i:PRINT#i,"Y ?<0~9)"; 

570 GOSUB670 

580 K=ASC <A4):IFK >47ANDK < 58THEN600 
590 GOT 057 0 

600 KY=K-48:PRINTHi,KY 

610 PSET<30, 33) ,i:PRINT«i, "ATIRA ?<S/N)" 

H 

620 GOSUB670 

630 PRINT«i,A%:lFAÍ< >"S"THEN650 
640 RETURN 

650 LINE ( 30 ,12)-<i40,4i),i,BF 
660 GOT 0500 

670 A4=INKEY4 : IFAl=""THEN670 
680 RETURN 
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690 L INE ( 20 , 55 ) - ( i 30 ,63>,i,BF 
700 IFTA=0THENRETURN 
710 PSET ( 30 , 55 ) , 1 
720 FOR I=í TOTA 

730 PRINTtti, CHRl ( í ) +CHR5 ( 79 ) ; sNEXTI 
740 RETURN 

750 XÍ=KX«8+Í52:YÍ=72-KY*8 

760 L INE (Xi,Yi)-(Xi+7,Yl+7) , 7 , BF 

770 IFM(KX,KY ) =i THEN790 

780 COLOR i5,i:RETURN 

790 M(KX,KY)=0:W=W+1 : SC=SC+10*< W+Q ) 

800 L INE (190,i40)-< 255 ,150),i,BF 
810 L INE <Xi,Yi)-(Xl+7,Yi+7),8,BF 
820 PSET< 198, 140) , 1 :PRINT#Í ,SC 
830 COLORIS, 1 :GOTO780 

CLA ,,PSET<10,í2> ' Í:PRINTHi,/APERTE: UMA TE 
850 IFINKEY$=""THEN850 
860 LINE(10, 12)-( 140,20) , 1 ,BF 
870 Z=INT ( RND ( -TIME ) *60000 • )+l 
^ D f,^ÍT 0TO4!X<I) = INT(RN t)(Z)*i0): 

NT ( RND (Z)*Í0);M(X(I),Y(I))=Í: NEXT 
890 FOR I =0TO3 
900 FOR J=I+1T04 

910 IFXd )=X< J)ANDY( I)=Y< J)THEN870 
920 NEXTJ, I SRETÜRN 
930 IFW=5THENW=0 : Q=Q+l : GOTO 150 
940 LINE(50, 100)-< 150, 150) , 1 ,BF 
950 PSET (60, 110) , 1 :PRINT«i ,"NOYO 
960 PSET(70, 130 ) , 1 : PR INTtt 1 , "S ou 
970 GOSUB670 
980 IFSC >HITHENHI=SC 

990 IF A$="S"THENER ASEM : SC=0 : W=0 : Q=0 : GOTO 
1 50 


! Y ( I ) =1 


JOGO?" 

N" 


ANALISE 

O programa é bem simples quanto à sua lógica e seu deta- 
lhamento é o seguinte: 

PROGRAMA PRINCIPAL 

Linha i 20 : Abre um arquivo na teia de alta resolução para 
que possamos escrever textos nela. 

Linha 130: dimensiona a matriz M(10.10) que terá cada ele- 
mento igual a 1, se existir um navio na posição correspondente 
a ele, e igual a 0, caso contrário. 
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Linha 140: seleciona a tela de alta resolução e "zera" as 
variáveis Hl (record), SC (pontos). O (fase) e W (número de 
navios afundados). 

Linha 150: atribui o valor 10 à variável TA (número de tiros). 

Linha 160 a 340: constroem a tela. 

Linha 360: define o "sprite" correspondente ao desenho da 
explosão. 

Linha 370: define o "sprite" correspondente ao desenho do 
navio. 

Linha 380: "chama” a sub-rotina 840/920. 

I inha 390: calcula as posições dos navios no plano em oers- 
pectiva e coloca os "sprites" dos navios. 

Linhas 400 e 410: estabelece uma espera tanto menor 
quanto maior for o número da fase (O). 

Linha 420: "apaga" os "sprites' dos navios. 

Linha 430: "chama" as sub-rotinas 500/680, 450/490 e 
750/830. 

Linha 440: se acabarem os tiros desvia para a linha 930, 
caso contrário volta a executar a linha 430 ("chamada" das sub- 
rotinas). 

Linha 930 a 990: testam se os cinco navios foram afunda- 
dos. Caso afirmativo, "zera" W (número de navios afundados), 
incrementa O (fase) e desvia a execução do programa para a 
linha 150. Caso contrário, questiona-se a respeito do desejo de 
um novo jogo. 

SUB-ROTINAS 

450/490: dá o tiro. "chama" a sub-rotina 690/740, diminui 
a variável TA em uma unidade, produz o som do tiro, coloca e 
retira o "sprite" da explosão nas coordenadas do plano em pers- 
pectiva. 

500/680: permite a entrada das coordenadas de cada tiro. 

690/740: imprime os desenhos correspondentes aos tiros 
restantes. 

750/830: pinta no mapa quadriculado a posição correspon- 
dente ao tiro dado.' Se houver um navio nessa posição (M(KX,KY) 
= 1), pinta-a de vermelho incrementa e imprime os pontos. Note 
que o incremento e tanto maior quanto maiores forem a fase e 
o número de navios já afundados. 

840/920: espera a pressão de uma tecla para tornar aleató- 
rio o valor da variavel TIME. Sorteia as cinco posições corres- 
pondentes aos navios e atribui o valor 1 aos respectivos ele- 
mentos da matriz M( 1 0.1 0). Verifica também se não houve 
repetição nas posições sorteadas. 
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INSTRUÇÕES 


Possivelmente p nome deste jogo deve-se a semelhança 
da estratégia usada pelos competidores e a "estratégia" usada 
por OTHELLO para matar DESDÊMONA na história de SHAKES- 
PEARE: o estrangulamento. 

O jogo transcorre sobre um tabuleiro quadrado (campo de 
batalha) com 64 casas, onde dois exércitos combaterão pelo 
domínio das posições até que todas tenham sido ocupadas. 

O microcomputador comandará os exércitos brancos e você 
comandará os exércitos pretos. 

Inicialmente, existem. apenas dois exércitos de cada cor no 
tabuleiro (figura 10.1). 

Figura 10.1 — Situação inicial do iogo 


oqx&ooooc* 

i Humano: 2 


Voce ? £ 
x = 
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0 objetivo do jogo é conquistar o maior número de posi- 
ções possível. Ouando as 64 posições do tabuleiro estiverem 
preenchidas, será o vencedor o jogador que tiver mais posições. 

Cada jogador só pode ocupar uma posição se obedecer à 
seguinte regra: 

"PARTINDO DE UMA POSIÇÃO JÁ DOMINADA (BASE), CAMI- 
NHAR (pelas linhas, pelas colunas ou pelas diagonais) POR 
SOBRE POSIÇÕES INIMIGAS E OCUPAR UMA POSIÇÃO LIVRE 
(OBJETIVO)." 

Desse modo. ao realizar uma ocupaçao, cada jogador esta- 
rá "estrangulando" alguns exércitos inimigos, cercando-os pelas 
laterais. Os exércitos inimigos estrangulados serão destruídos 
e substituídos por exércitos aliados. Portanto, ao ocupar uma 
posição livre, certamente mais de uma posição será dominada. 
Veja na figura 10.2 alguns lances permitidos e outros proi- 
bidos. 

Figura 10.2 — Lances de OTHELLO 


Humano: £ 
Micro : 


A P*rtir da configuraçâc 
ao lado pode-se executar 
■uitos lances. Iaaginan- 
do que seja a vez do jo- 
gador huaano, observe a< 
13 únicas jogadas perai- 
tidas. Elas estio «arca- 
das por ua ponto ( $•$). 
Ua lance proibido seria, 
por exeaplo, joçar e«: 

< 0 , 1 > 



66 


O primeiro movimento é sempre contra o micro e para 
realizá-lo você deve introduzir as coordenadas x (coluna) e y 
(linha) da posição livre a ser ocupada. Se para chegar até ela 
existir mais de uma posição BASE. todos os exércitos inimigos 
entre cada uma delas e o OBJETIVO serão destruídos e substi- 
ituídos por exércitos aliados (figura 10.3). 


Figura 10.3 — Lance com BASES múltiplas 

Humano : £ 

Micro : 

Lances coa bases «últi- 
plas são aqueles ea que 
dois ou aais exércitos, 
situados ea bases dis- 
tintas, aarchaa siaul- 
taneaaente sobre as ca- 
beças de exércitos ini- 
■igos. Iaaginando que o 
lance seja dos exérci- 
tos huaanos, existea a- 
penas 2 lances coa bases 
aúltiplas: 

<2 , 1> e 

<4 , 0 > 



Podem surgir situações em que não existe nenhuma posi- 
ção livre em condições de ser ocupada. Nessa situação, você 
estará sem OBJETIVO e para informar isso ao micro, introduza 
8 como valor de x. 

Não entraremos em detalhes quanto ao algoritmo usado 
pelo micro para fazer seus lances. Certamente, ele não é per- 
feito. Longe disso, faz apenas com que o micro jogue como um 
jogador medíocre. Apesar disso, ele é suficientemente bom 
para lhe impingir algumas derrotas enquanto você aprende a 
jogar! 

Ao digitar o programa, tome cuidado para não alterar ne- 
nhum dado das linhas DATA. Evite, também, trocar o O por 0 
ou vice-versa nas instruções PLAY. 
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Figura 10.4 — Programa OTHELLO 


10 'W OTHELLO tt 

20 '# Renato da Silva Oliveira # 

40 COLOR 4,4,4: SCREEN i:WIDTH 32 
50 KEY OFF : CLEAR Í0000 
60 F0RF=2T 020 : F0RG=13T 03 í : LOCATEG , F 
70 PRINT"*":NEXTG,F 
80 DIMA4 (8,8), C% ( í 6 , 8 ) 

90 LOCATE 0 , í : PR INT"#**#***«*#*#" 

100 LOCATE 0 , 2 : PR INT"# Humano: »" 

110 LOCATE 0 , 3 : PR I NT"« #" 

120 LOCATE 0 , 4 : PR INT"* Micro : #" 

130 LOCATE 0,5:PRINT"#*««########" 

140 LOCATE i,8:PRINT"Micro: X" 

150 LOCATE 1 , 16:PRINT"0oce ? 0" 

160 P-i : GOTO 800 

170 IF IP=0 THEN COLOR 15,4:G0SUB 1140 
180 LOCATE 2,17SPRINT ,, X= " ; CHRÍ ( 1 27 ) ; 

190 XÍ=INPUT4<i):X=UAL<XÍ> 

200 PR INT USI NG"#" ; X : Z=X + i 
210 GOSUB 290 : X= I NT < Z ) 

220 LOCATE 2 , 18 : PR INT"y = " ; CHRÍ ( 127 ) ; 

230 YÍ=INPUT1< 1 > :Y=VAL< Yl> 

240 PR INT USING"#";Y:Z=Y+i 
250 GOSUB 290 : Y= INT < Z ) 

260 IF Aí <X,Y>=" "THEN 340 
270 LOCATE 2 , 21 : PR INT"Novament e" 

280 GOTO 170 

290 IF Z-9 THEN Z=0:LOCATE 2 , 21 : PR I NT"Pa 
sse " : FOR F=i TO 200: NEXT F 
300 LOCATE 2,21 SPRINT" 

310 IF Z<1 THEN 370 
320 IF Z < =8 THEN RETURN 
330 GOTO 270 

340 Bí="X" : Gí="0" : P=0 : 0=0 

350 LOCATE 6,16:PRINT" <";:PRINT USING"# 
" ; X-l ; : PR INT":"; : PR INT USING"#" ; Y-l ; :PRI 
NT">": GOSUB 460 

360 LOCATE 7,8:PRINT"? ":GOSUB 670 
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370 BÍ="O":G*="X":P=i:Q=0 

380 FOR S=í TO i 6 

390 FOR R=8 TO í STEP -2 

400 X=OAL<CÍ<S,R) ) =IF X=9 THEN Í70 

4i0 T=R~i:Y=OAL<C*(S,T> > 

420 IF A9> ( X , Y ) =" " THEN GOSUB 460 
430 IF Q=í THEN LOCATE 6,8:PRINT" <";=PR 
INTUSING"#";X-i; SPRINT":"; SPRINT USING"# 
";Y-Í; SPRINT" >"s LOCATE 5 , 16 : PR INT"? 

" ! GOSUB 1090 
440 IF 0=1 THEN 670 
450 NEXT R,S 
460 FOR I=-1T01 
470 F0RJ=-1T01 
480 E=X:F=Y:M=X:N=Y 
490 IF 1=0 THEN IF J=0 THEN 510 
500 IF E+I >=1 THEN IF E+I<=8 THEN IF F+J 
> = i THEN IF F + J< =8 THEN 540 
510 NEXT J,I 

520 IF P=i OR 0=1 THEN RETURN 
530 GOTO 270 

540 IF A9>(E + I,F + J)< >B% THEN 510 
550 E=E+l:F=F+J 

560 IF E > = 1 THEN IF E<=8 THEN IF F> = 1 TH 
EN IF F < =8 THEN 580 
570 GOTO 510 
580 D$=A$ ( E , F > 

590 IF DÍOB1 THEN 610 

600 GOTJ) 550 

610 IF D*=" " THEN 510 

620 A4(X,Y)=G < 6:M=M+lsN=N+J:T%=A < B(M,N) 

630 IF AS(M,N)=BS THEN A4(M,N)=G1 
640 IF T%=B$ THEN 620 
650 0=1 s GOTO 510 

660 LOCATE 16 , 3 : PR INT // 0*i*2*3*4*5*6*7" 

670 Y=0 s C=0 s FOR J=1 TO 8 

680 LOCATE Í4,3+J*2 

690 PRINT USING "ti"; J-l; 

700 FOR 1=1 TO 8 

710 PRINT "*";AÍ(I,J); 

720 IF A% ( I , J ) ="0" THEN Y=Y+i 
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730 IF Al ( I , J > ="X" THEN C=C+i 
740 NEXT I , J 

750 LOCATE 9,2 : PR INTUSING"##"; Y 
760 LOCATE 9,4 : PR INTUSING"##" ; C 
770 IF Y=0 OR C=0 OR Y+C=64 THEN 900 
780 IF P=0 THEN FOR FF=i TO 100: NEXT FF 
: RETURN 
790 GOTO 170 

800 FOR J=1 TO 8 : FOR 1=1 TO 8 
810 Al ( I , J ) =" " : NEXT I,J 
820 Al ( 4 , 4 ) ="X" : Al ( 5 , 5 ) ="X" 

830 Al (4,5) ="0" : Al (5,4) ="0" 

840 RESTORE 870:FOR M=1 TO 16 

850 FOR N=i TO 8 : READ SS 

860 Cl (M,N)=STRl( SS ) : NEXTN , M 

870 DATA 8, 8, 1,1, 8, 1,1, 8, 6, 6, 3, 6, 6, 3, 3, 3 

,3, 4, 6, 5, 5, 6, 4, 3, 4, 6, 3, 5, 5, 3, 6, 4, 3, 1,4,1 
r ^ , 1,6, 1,1, 3, 1,4, 1,5, 1,6, 8, 3, 8, 4, 8, 5, 8, 6 

,3, 8, 4, 8, 5, 8, 6, 8, 3, 2, 4, 2, 5, 2, 6, 2 

880 DATA 3, 7, 4, 7, 5, 7, 6, 7, 2, 3, 2, 4, 2, 5, 2, 6 

,7, 3, 7, 4, 7, 5, 7, 6, 2, 2, 7, 7, 7, 2, 2, 7, 1,2, 2,1 
,7, 1,8, 2, 1,7, 2, 8, 7, 8, 8, 7, 9, 9, 9, 9, 9, 9, 9, 9 

890 GOTO 660 
900 IF C >2»Y THEN 1040 
910 IF Oi. 5*Y THEN 1000 
920 IF OY THEN 960 
930 LOCATE 0,21 

940 PRINT " Fui derrotado! 1 i" 

950 GOTO 1070 

960 LOCATE 0,21 

970 PRINT" Consegui ! ! ! " 

980 PRINT" Eu o venci!!!" 

990 GOTO 1070 

1000 LOCATE 0,21 

1010 PRINT" Doce perdeu! ! !" 

1020 PRINT" Treine mais um pouco' ' i" 

1030 GOTO 1070 

1040 LOCATE 0,21 

1050 PRINT " Eu o venci!!!" 

1060 PRINT " Voce e' um pato!!!" 

1070 PR INT"Par a novo jogo, digite SPACE. 
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5 080 IF STR IG ( 0 ) =0 THEN 5.080 ELSE RUN 
Í090 PLAY"S0M6000T 5.80" 

5.Í00 PLAY"L804A#R4G#AHG#F#GttR4" 

ÍÜ0 PLAY"GttAtt05CH404A#4" 

1120 PLAY"G#A#GttFHD#R2"' 
i 130 RETURN 

5.5.40 ' redefine caracteres 

í 150 LOCATE15,0 SPRINT"***************" 

1160 L0CATE15 , 1 s PR INT"*o t h e 1 1 o*" 

1170 LOCATE 15 ,2 SPRINT"********»****** 

1180 DATA 00110000 

1190 DATA 00110000 

1200 DATA 01001111 

1210 DATA 01110000 

1220 DATA 00111100 

1230 DATA 01110000 

1240 DATA 10001000 

1250 DATA 11000110 

1.260 RESTORE 1180S FOR F=0 TO 7 

1270 READ S$sS=VAL<"«b"+SS> 

1280 OPOKE 8*ASC("0")+F,S 

1290 NEXT FSVPOKE 8201 , «B000101 i i 

1300 DATA 00001100 

1310 DATA 00001100 

1320 DATA 11110010 

1330 DATA 00001110 

1340 DATA 00111100 

1350 DATA 00001110 

1360 DATA 00010001 

1370 DATA 01100011 

1380 FOR F=0 TO 7 

1390 READ S*:S=OAL<"«b"+S%) 

1400 OPOKE 8*ASC ( "X" ) +F , S 

1410 NEXT FsVPOKE 8203 , SB 1 1 1 101 1 1 

1420 DATA 10000001 

1430 DATA 01000010 

1440 DATA 00111100 

1450 DATA 00100100 

1460 DATA 00100100 

1470 DATA 00111100 

1480 DATA 01000010 
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1490 DATA Í000000Í 

1500 FOR F=0 TO 7 

1510 READ Sí : S=VAL ( "&b"+S$ ) 

1520 OPOKE 8»ASC ( ) +F , S 

1530 NEXT F : OPOKE 81 97 , &B 1 00001 1 0 

1540 IP-i : OPOKE 8202 , &B000101 1 1 

1550 FOR F=8*ASC < "0" > TO 8*ASC ( " 9 " ) +7 

1560 OPOKE F , VPEEK ( F ) /2 

1570 NEXT F 

1580 RETURN 


ANALISE 

O programa usa a SCREEN 1 para desenhar o tabuleiro e 
monitorar o jogo. 

As posições dos exércitos são armazenadas na matriz 
A$(8,8) definida na linha 70. 

Os caracteres O. X e * são redefinidos: 

Oé usado como exército do usuário humano e é redefinido 
pelas linhas de 1260 a 1290, que usam as linhas DATA de 1180 
a 1250. 

X é usado como exército do micro e é redefinido pelas 
linhas de 1380 a 1410, que usam as linhas DATA de 1300 a 1370. 

* e o caractere usado como moldura e é redefinido pelas 
linhas de 1500 a 1530, que usam as linhas DATA de 1420 a 1490. 


Vocé pode redesenhar esses caracteres simplesmente alte- 
rando os dados nas linhas DATA. Experimente, por exemplo, 
trocar os 0 s por 1's e vice-versa. 


Todos os algarismos (de 0 a 9) são também redefinidos 
(nas linhas de 1550 a 1570) para que fiquem mais centralizados 
dentro da matriz 8x8 em que são definidos. Para isso basta des- 
locar todos os pixeis setados uma posição para a direita, divi- 
dindo o equivalente decimal da linha em que eles estão por 2! 

Veja na figura 10.5 a diferença entre o 0 normal e o 0 cen- 
tralizado. 
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Figura 10.5 — 0 normal e 0 centralizado 

ZERO NORMAL 

384 >01110000 > 

385 >10001000 > 

386 >10011000 > 

387 >10101000 > 

388 >11001000 > 

389 >10001000 > 

390 >01110000 > 

391 >00000000 > 

ZERO CENTRALIZADO 

384 >00111000 > 

385 >01000100 > 

386 >01001100 > 

387 >01010100 > 

388 >01100100 > 

389 >01000100 > 

390 >00111000 > 

391 >00000000 > 




Note que o comando COLOR 4,4.4 na linha 40 taz com que 
o desenho da tela no video não seja mostrado até que o co- 
mando COLOR da linha 170 seja executado. Isso já (oi usado 
no programa TRON e serve apenas para mostrar a tela já pronta, 
de uma só vez! Experimente eliminar o COLOR da linha 40 
para observar melhor a diferença que ele produz. 

A estratégia do micro é definida pelas linhas DATA 870 
e 880, cujos dados são armazenados na matriz C$1 1 6,8) para 
que possam ser usados. Essa matriz é definida na linha 80. 

Ouando o micro executa uma jogada, uma pequena melodia 
é executada pelas linhas de 1090 a 1120. Você pode modifi- 
cá-la à vontade. 
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De todos os computadores atualmente no mercado brasi- 
leiro, os mais indicados para aplicações educacionais são os 
micros do padrão MSX. 

Esta afirmação é facilmente explicada se avaliarmos, de um 
lado. os recursos de que a máquina é dotada e, do outro lado, 
o seu preço. O MSX apresenta a melhor relação custo/benelício 
quando imaginado em uso numa escola. 

Nesta seção apresentamos alguns programas didáticos cuja 
finalidade é a de fornecer uma reduzidíssima amostra dos incrí- 
veis recursos da máquina e de suas inúmeras aplicações. O im- 
portante é que os professores percebam que, com um pouco de 
treinamento, podem produzir programas incríveis gastando, ape- 
sar disso, muito pouco tempo de digitação e elaboração. 

Dois equívocos devem ser desfeitos para acabar com o pre- 
conceito existente contra o microcomputador na educação. O 
primeiro consiste em se achar que o micro deve ser utilizado na 
escola para se ensinar computação. Na realidade esta é, talvez, 
sua aplicação menos importante: ele representa, de fato, uma 
poderosa ferramenta para o ensino das matérias tradicionais. O 
segundo equivoco é o de se ficar na dependência do famigerado 
"software didático”, normalmente gerado por programadores lei- 
gos em educação: muito melhor é o professor gerar seus pró- 
prios programas! 
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Quando ocorre a passagem de luz de um meio para outro, 
por exemplo do ar para a água. verifica-se, de um modo geral, 
a mudança de intensidade da velocidade de propagação da mes- 
ma. Esta mudança de velocidade é traduzida através de um fenô- 
meno denominado REFRAÇÃO. 

Esse programa simula a passagem de um feixe de luz mono- 
cromática de um meio para outro, num dióptro plano, baseado 
na Lei de Snell. 

De inicio, o programa pede que você informe os índices de 
retração absolutos dos dois meios. Devido aos limites físicos 
que a natureza impõe, os valores dos indices não devem ser in- 
feriores a 1 e nem superiores a 5. Qualquer valor não contido 
no intervalo mencionado não será aceito pelo programa. 

Uma vez informados os índices de retração, o programa 
muda a tela para o modo "SCREEN 2" e nela desenha a super- 
fície de separação dos dois meios, a reta normal à essa super- 
fície que passa pelo ponto de incidência da luz e a fonte lumi- 
nosa. representada por um círculo verde. 

A fonte luminosa é inicialmente posicionada de modo que 
o ângulo de incidência seja de 45 graus. No entanto, você pode 
mudar esse ângulo reposicionado a fonte. Para isso utilize as 
teclas de seta e acompanhe o valor do ângulo, que é constante- 
mente atualizado e mostrado no box correspondente. Esse box 
encontra-se no quadrante inferior esquerdo da tela e contém 
a letra "i" referente ao ângulo de incidência. 

Convém notar que o movimento da fonte só pode ser reali- 
zado sobre os lados de um quadrado imaginário, ou seja. para 
ângulos superiores a 45 graus funcionam apenas as teclas de 
seta "para cima" e "para baixo". Da mesma forma, para ângu- 
los inferiores a 45 graus, só funcionam as teclas de seta "para 
esquerda" e "para direita". 
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Ouando o valor do ângulo desejado tiver sido ajustado, 
pressione a 'barra de espaços" para que você possa “ver" os 
feixes de luz incidente, refletido e refratado. 

Após serem desenhados os raios de luz, serão mostrados 
também o ângulo de refração e as velocidades de propagação 
da luz em cada um dos meios relativamente à velocidade de 
propagação da luz no vácuo (c). Além disso, uma seta ficará 
indefinidamente se deslocando do meio 1 para o meio 2 com 
velocidade proporcional à da propagação da luz em cada meio. 

Neste ponto você tem duas opções: pressionar a tecla F1 
para reiniciar o programa e, desta forma, redefinir os índices 
de refração. ou pressionar a tecla F2 para repetir a "experiên- 
cia". mantendo os mesmos índices de refração, mas tendo a 
oportunidade de alterar o ângulo de incidência. 

Ouando o índice de refração do meio 1 for maior do que 
o do meio 2, a pressão da tecla F3. antes que os raios de luz 
sejam desenhados, fará o programa mostrar o ANGULO LIMITE 
DE REFRAÇÃO. 


Figura 11 .1 - Programa REFRAÇÃO. 

1.00 r REFRACAO - LEI DE SNELL 
1Í0 ” LUIZ TARCÍSIO DE CARUALHO JR 
120 ” 

130 ON KEY GOSUB 200,270,620 
140 ON STRIG GOSUB 520 

150 KEYOFF ’ OPEN // GRPs /, FOR OUTPUT AS tti 
160 SCREEN2 s SPR ITES < 1 ) =CHRS ( 0 ) +CHR® < 24 > + 
CHRS(60)+CHRS< 126)+CHRS( 1 26 ) +CHRS ( 60 ) +CH 
RS(24)+CFIRS(0) 

1 70 SPR ITES ( 2 ) =STR INGS (3,0) +STR INGS (3,25 
5 ) +STR INGS (2,0) 

180 SPR ITES ( 3 ) =CHR S(124)+STRINGS(3,68) +C 
HRS < 198 ) +CHR $ ( 68 )+CHRS(40) +CHRS ( 16 ) 

190 SPR I TES ( 4 > =CHRS ( 255 ) +STRINGS (3,1) +CH 
RS ( 1 7 ) +STR INGS (3,1) 

200 DEFUSR=&H156 • Q=USR ( 0 ) : KEY ( 1 ) OFF : COLO 
R15,4:SCREEN0:LOCATE7,i : PR INT"REFR ACAO -E 
M DIOPTRO PLANO" :L0CATE13,3sPRINT"LEI DE 
SNELL" 

210 LOCATEi ,7:PRINT"Qual o indicie de ref 
racao do" : L0CATE3 , 8 : PR INT"me i o do qual a 
luz provem?" s L0CATE6 , 10 : PR INT"Me i o 1 => 
: L INEINPUT XS 
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220 Ni=0AL(X4): IF Ni<í OR Ni>5 THEN LOC 
ATE 15,i0:PRINT SPACE* < 17 > s GOTO 210 
230 Nl=INT(Ni«10000+.5)/10000 
240 LOC ATEI , 1 3 s PR INT"Qual o indice de re 
fracao do":L0CATE2, 14:PRINT"me i o para o 
qual a luz passa?" s LOC ATE 6 , 16 : PR INT"Me i 
o 2 => "jSLINE INPUT Y4 

250 N2=0AL(Y4) : IF N2<1 OR N2>5 THEN LOCA 
TE 15, 1 AsPRINT SP ACE4 < 17 > : GOTO 240 
260 N2= INT ( N2* 10000+ . 5 ) / 10000 s P 1=3 . 14159 
2«s IL=100 

270 KEY < 2 ) OFF : COLOR 15 , 1 , 1 : SCREEN2 

280 C0L0Rii:PSET(96,8) , 1 : PR INTttl , "REFRAC 

AO" 

290 A4="LEI DE SNELL" : FOR Y=56 TO 144 STE 
P 8:PSET(16,Y> ,i:PRINTM 1, MIDI (Aí, Y/8-6,1 
) " NEXT Y 

300 LI NE < 24 , 20 ) - < 232 ,188), 15, B 
310 A4="MEI0 1 " s COLOR 2:F0R Y=32 TO 72 S 
TEP 8:PSET(240,Y) , 1 :PR INTH1 , MID4 < A4 , Y/8- 
3,1 ) : NEXT Y 

320 A4="MEI0 2" 5 COLOR 3 : FOR Y=120 TO 160 
STEP 8:PSET(240,Y) , 1 : PR INTH 1 , MIDI < A4 , Y/8 
-14,1): NEXT Y 

330 FORX=i20TO128STEP8:K=X/8-i3:PUT SPRI 

TEK,(X,i 00 ) , 7 , 2 5 NEXTX 

340 LINE(25,i04)-<il9,106) , 7 , BF 

350 L I NE < 1 36 ,i04>-(23i,i06>,7,BF 

360 FOR I=32T0174STEP4 : PSET < 128 ,I),8: PSET 

< 128, I+i ) ,8:NEXTI:PUTSPRITE0, <129,95) ,8, 

4 

370 L INE < 30 , 1 1 0 ) - < 1 06 , 1 38 ) , 15 , B 8 LI NE < 30 , 
124 >-( 106, 124) , 15:LINE(30, 150 >--(66, 178) , 
15, B:L INE <30, 164) -<66, 164) , 15 : COLOR 15 : PS 
ET (32, 112) ,l:PRINTMi,"ni=":PSET(32,128) , 
isPRINT«í ,"n2=" 

380 PSET <32, 152) , 1 : PR INTHi , " i =" : PSET < 32 , 
i68),i:PRINTHi,"r=":PSET(72,160),i:PRINT 
tt 1 , " < graus ) " 

390 PSET (48, 112) , 1 :PRINT#i ,Ni :PSET (48, 12 
8),í:PRINT«i,N2 
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400 X=64 : Y=25 :STRIG(0> ON : IFNi >N2THENKEY ( 
3 ) ON 5 Z=N2/Ni sli=ATN(Z/SQR<-Z*Z+l) ) slL-IN 
T ( ( <IÍ*í80>/PI>+.5> 

4Í0 T=STICK ( 0 ) 

420 IFT=3ANDY=25ANDX< 124THENX=X+i 

430 IFT=7ANDY=25ANDX>64THENX=X-1 

440 IFT=5ANDX=64ANDY < 100THENY=Y+1 

450 IFT = i ANDX=64ANDY >25THENY=Y-Í 

460 PUTSPRITEi, ( X , Y ) ,3,1 

470 Xi=i24-X:Yi=i00-Y 

480 IFY1=0THENI=PI/2:IG=90:GOTO500 

490 I=ATN<Xi»i.25/Yi> : IG= < 1*180 ) /P I = IG=I 

NTÍIG+.5) 

500 LI NE ( 48 , í 52 )-<63,í59) ,i,BF: PSET ( 40 , i 
52) ,i:PRINT«i,IG 
51 0 GOTO4Í0 

520 STR IG ( 0 ) OFF s IF IG=IL THEN RG=90:GOTO 
680 

530 IF(SIN( I )*Ni )/N2>i OR IG>IL THEN GOT 
O 720 

540 Z=<SIN( I )*Ni )/N2:R = ATN(Z/SQR <-Z«Z+i ) 
) :RG=<R*i80)/PI :RG=INT(RG+-5) 

550 PSET (40,168) ,i!PRINT8i,RG 
560 L INE (X+4 r Y+4)-(128,i04) ,9 
570 IFIG=0 THEN L INE- < 1 28 , 1 84 ) , 9 : GOTO730 
580 X2=i28+60*TAN(R) s Y2=i 04+75/T AN ( R ) 

590 IF RG=45 THEN L INE- ( 1 88 , 1 79 ) , 9 : G0T07 
00 

600 IF RG< 45 THEN LINE- ( X2 , 1 79 ) , 9 : GOTO70 
0 

610 IF RG >45 THEN L I NE- ( 188 , Y2 ) , 9 : GOTO70 
0 

620 KEY ( 3 ) OFF 

630 LINE (48, 152 ) - ( 63 , 159 ) , 1 , BF : PSET < 40 , 1 

52) , 1 sPRINTttl, IL 

640 IF IL=45 THEN X=64:Y=25 

650 IF IL< 45 THEN Y=25 s X=60- ( 60«TAN ( 1 1 ) ) 

+64 

660 IF IG >45 THEN X=64 : Y=75- ( 75/TAN ( 1 1 ) ) 
+25 

670 PUTSPRITEi, (X,Y) ,3, l:RG=90 
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680 PSET<40,168) , 1 : COLOR 15 : PR INTHi ,RG 
690 LI NE (X+4,Y+4>-( í 28 , 104 ) , 9 5 LINE- < i 88 , 
Í04) ,9:PSET(i52,128> , 1 : C0L0R8 : PR INTH 1 , "A 
NGUL0":PSET(i52,i44),i:PRINT Hl, "LIMITE" 
700 LINE (128,í04)-( 252-X , Y+4 ) ,6 
710 GOTO730 

720 LINE (X+4,Y+4)-( 1 28 ,104) , 9 : L INE- < 252- 
X,Y+4> ,9:PSET< 144, 128) ,1 : C0L0R8 : PR INTHi , 
"REFLEXÃO" : P SET ( 160 , 144 > , 1 : PR INTH 1 , "TOTA 
L" 

730 KEY<i)0N!KEY(2) ON : KEY ( 3 ) OFF : RETLJRN7 4 
0 

740 Vi = INT < ( i/Ni )»1000+.5 ) /i 000 : V2=INT ( < 
i/N2)*í000+.5)/i000:PSET< 160,22) , i: COLOR 
13:PRINTHi ,Vi ;"c":PSET<160, 178) ,1 :PRINTH 
1,02; "c" 

750 FOR S= 30 TO 1 04 :PUTSPRITE10, ( 220 , S > , 13, 
3 ! FOR T=i T 05#N1 s NEXTT s NEXTS : FORS=105TOi7 1 
sPUTSPR ITE10, (220,S) , 13 , 3 : F0RT=1T05«N2 : N 
EXTT : NEXTS s PUTSPR ITE10, <0,0) ,0,3:FORT=1T 
0300 5 NEXT ! GOT 0750 

ANÁLISE 

As linhas 130 e 140 declaram para quais sub-rotinas deve 
ser desviada a execução do programa caso as teclas F1 a F3 
e a barra de espaço sejam pressionadas. 

As linhas 160 a 190 definem os "SPRITES" utilizados no 
programa. O de número 1 corresponde à fonte luminosa, o de 
número 2 se refere ao trecho central da superfície de separação 
dos dois meios, o número 3 é a seta que se desloca com velo- 
cidades proporcionais à de propagação da luz e o 4 é o símbolo 
de ângulo reto. 

O propósito de utilizar-se "SPRITES" (2 e 4) para desenhar 
a região central da tela que se situa em torno do ponto de inci- 
dência da luz, é para evitar-se que o raio de luz "manche" a 
superfície de separação. Isso ocorre sempre que dois traçados 
de cores diferentes são feitos muito próximos em SCREEN 2. 

As linhas 200 a 260 permitem a entrada dos índices de 
refração dos dois meios. Note. na linha 200. a chamada de uma 
sub-rotina da ROM que se inicia no endereço &H156. Sua função 
é "limpar" o "buffer” do teclado antes que as entradas dos 
índices sejam feitas. 
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A titulo de experiência, elimine as instruções de chamada 
da sub-rotina de limpeza do "buífer” do teclado (DER USR = 
&H156 e Q = USR(O)) e veja o que acontece. 

As linhas 270 a 480 desenham a tela e as linhas 410 a 510 
permitem a movimentação da fonte luminosa e realizam o cál- 
culo do ângulo de incidência. 

As linhas 520 a 610 desenham o raio retratado e calculam o 
ângulo de refração. Se ocorrer reflexão total, ocorre um desvio 
para a linha 720. 

As linhas 620 a 690 são executadas no caso de se desejar 
“ver" o ângulo limite, mediante a pressão da tecla F3. 

As linhas 700 a 710 desenham o raio refletido; a linha 730 
habilita as interrupções pelas teclas F1 e F2 e desabilita a da 
tecla F3. Além disso, é forçado um retorno das sub-rotinas de 
interrupção para a linha 740. 

Finalmente, as linhas 740 e 750 calculam e mostram as ve- 
locidades de propagação da luz em cada meio e provocam o 
deslocamento da sala que indica essa propagação. 



80 




INSTRUÇÕES 


O programa LIFE foi adaptado de um jogo de mesmo nome criado 
pelo matemático inglês John H. Conway há quase duas décadas 
atrás. 

O nome LIFE (vida, em inglês) tem origem nas muitas ana- 
logias que se pode fazer entre 0 jogo e o desenvolvimento de 
culturas de bactérias (ou. de forma menos evidente, com o de- 
senvolvimento de uma espécie qualquer em seu habitat). 

Além dos interesses "biológicos" do jogo, seus aspectos 
matemáticos são inúmeros. Não vamos nos alongar em comen- 
tários abstratos sobre o LIFE. porém, se você estiver interessado 
em mais informações sobre esses aspectos, procure ler o capí- 
tulo 9 (Comunicação em Sistemas) do livro "INSTRUMENTAL 
PARA O PENSAMENTO" de C. H. Weddington. e os artigos de 
Martin Gardner (Matematical Games) das Scientific American de 
outubro de 1970 e fevereiro de 1971. 

O princípio do programa consiste no seguinte: num tabuleiro 
de 24 x 32 posições (SCREEN 1), nascem se reproduzem e mor- 
rem células representadas por caracteres redefinidos). 

Ao começar, o programa produz uma primeira geração de 
células, distribuídas ao acaso em seu habitat de 768 posições. 
A geração seguinte surge a partir da anterior, obedecendo a cer- 
tas regras evolutivas. 

Cada célula pode ter até 8 casas vizinhas com ou sem ou- 
tras células (figura 12.1). 

Figura 12.1 — Posições ao redor de uma célula 


1 ? 3 



6 7 8 
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As regras evolutivas são as seguintes: 

1) As células que tiverem 2 ou 3 células vizinhas sobre- 
vivem e permanecem vivas na geração seguinte. As demais, 
morrem! 

2) Em toda casa vazia com exatamente 3 células vizinhas, 
nascerá uma nova célula na geração seguinte. 

No desenrolar do programa, muitas situações imprevisíveis 
vão surgindo. A situação inicial pode evoluir dando origem a 
espécies estáveis, levar a uma extinção total, ou ainda, quem 
sabe, a espécies indefinidamente em evolução (essa situação, 
entretanto, não é verificável empiricamente e ainda nem foi 
comprovada matematicamente!). Ocasionalmente surgem confi- 
gurações meta-estáveis que oscilam entre duas possibilidades. 

Um aspecto muito interessante a ser observado é a con- 
vergência evolutiva: como situações iniciais extremamente 
diferentes podem dar lugar a situações idênticas ou muito se- 
melhantes. O tubarão, o golfinho e o ictiossauro têm origens 
completamente distintas: um é peixe, o segundo é mamífero e 
o terceiro é um réptil (figura 12.2). Mesmo assim, quando sub- 
metidos a conjuntos semelhantes de regras evolutivas do meio 
aquático evoluíram de modo a adquirirem formas semelhantes. 

Figura 12.2 — Convergência evolutiva 
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Analogamente, as configurações iniciais, diferentes umas 
das outras, ficam submetidas ás mesmas regras, simulando 
uma pressão de evolução, e acabam convergindo para formas 
similares. 

A grande virtude deste programa é permitir simular, em 
apenas alguns minutos, um suceder de gerações que dificil- 
mente podemos observar na prática. 

Obviamente, a velocidade do programa não é muito grande. 
Para aumentá-la, teríamos que recorrer a linguagem de máqui- 
na ou usar um compilador BASIC. 

Figura 12.3 — Programa LIFE 


1 00 ' LIFE 

110 ” Pierluigi 8, Renato 

120 ' 

140 PR INT"D i g i t e a barra de espaços." 

150 IF STR IG ( 0 ) =0 THEN BEEP : GOTO 150 

í 60 COLOR 15,9,5 : SCREEN í : KEY OFF 

170 ' redefine 79 e 48 

180 DATA 00111100 

190 DATA 01000010 

200 DATA 10011001 

210 DATA 10100101 

220 DATA 10100101 

230 DATA 10011001 

240 DATA 01000010 

250 DATA 00111100 

260 OPOKE 8201 ,&B110iliil 

270 VPOKE 8i98,«Bli0iilli 

280 FOR FX=632 TO 639 

290 READ A%:A=VAL("«b"+A%> 

300 OPOKE FX,A : VPOKE F%-248,A 
310 NEXT FV. 

320 7 redefine 32 e 0 
330 DATA liiliiii 
340 DATA 10000001 
350 DATA 10111101 
360 DATA 10100101 
370 DATA 10100101 
380 DATA 10111101 
390 DATA 10000001 
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400 DATA iiiíiíii 

410 OPOKE 8196,&Bi0010ii0 

420 OPOKE 8i92 r «Bi00i01i0 

430 FOR FZ=256 TO 263 

440 READ A%:A=VAL<"«b"+AS> 

450 OPOKE F% , A : OPOKE FZ-256,A 
460 NEXT FZ 

470 ' sorteia células iniciais 
480 AZ=RND <-TIME)*200 
490 FOR FZ=i TO AZ 

500 B i Z=22*R ND ( i ) : B2Z=3+26*RND ( i ) 

510 OPOKE 617 6+32#B 1Z+B2Z,79 
520 NEXT FZ 

530 ’ verifica situacao e prepara 
540 FOR FZ=6Í 76 TO 6880 
550 CZ=0 

560 IF 0PEEK(FZ-33><33 THEN CZ=CZ+1 

570 IF 0PEEKÍFZ-32X33 THEN CZ=CZ+i 

580 IF 0PEEK(FZ-3i><33 THEN CZ=C%+1 

590 IF 0PEEK<FZ-Í><33 THEN C%=C%+1 

600 IF 0PEEK(FZ+1><33 THEN CZ=CZ+i 

610 IF OPEEK (FZ+31 ><33 THEN CZ=CZ+1 

620 IF 0PEEK<FZ+32><33 THEN CZ=CZ+i 

630 IF 0PEEKÍFZ+33X33 THEN CZ=CZ+i 

640 IF OPEEK ( FZ ) =79 AND <CZ<5 OR CZ>6> 
THEN YPOKE FZ,48 

650 IF OPEEK ( FZ )=32 AND CZ=5 THEN YPOK 

E FZ , 0 

660 NEXT FZ 

670 ’ altera a tela 

680 FOR FZ=6144 TO 6912 

690 IF OPEEK ( FZ ) =48 THEN OPOKE FZ,32 
700 IF OPEEK ( FZ ) =0 THEN VPOKE FZ,79 
710 NEXT FZ : BEEP : BEEP : BEEP 
720 GOTO 540 


ANÁLISE 

As linhas REM dividem o programa em suas principais 
partes. Os caracteres de códigos 79 (letra O). 48 (número 0), 
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0 (caractere de controle) e 32 (espaço em branco) são redefi- 
nidos e tem suas cores alteradas. Usa-se a SCREEN 1 como 
habitat das células. 

Em linhas gerais, o programa funciona assim: 

(1) Sorteiam-se as posições iniciais na tela, que inicial- 
mente está repleta com códigos 32. e insere-se nelas o código 
79 (células vivas). 

(2) Verificam-se as posições em que devem nascer novas 
células e insere-se nelas o código 0 (de aspecto idêntico ao 
do código 32). 

(3) Verificam-se as posições em que as células devem 
morrer e insere-se nelas o código 48. cujo aspecto é idêntico 
ao do código 79. 

(4) Verificam-se as posições com código 48 (células con- 
denadas) e insere-se nelas o código 32. Verificam-se as posi- 
ções com código 0 (embrião de célula) e insere-se nelas o 
código 79 (célula viva). 

(5) Volta-se ao procedimento (2). 

Para compreender melhor o funcionamento do programa, 
observe as linhas REM. 

Figura 12.4 — Exemplo de tela do programa 


□ E El 0 B E B 0 E E 13 E E E E E B B E 0 0 0 0 0 0 0 0 0 0 EI 13 0 
B00BEEEBBEEEBEEBBEBEEEEBEBEEBBEE 
B0BEEEEBEBEEEBEEBEBBEBEBBBEB00EE 
eeeeeeeebebbebhbhehqeheieebbebbbe 
EBEEEEEEBBBEEEEEEBBBEEEB0ESEB00E 
EEBEEBEBEEEEEEEEEEBEEBB0BEEB00EB 

beeeeeeebemeeeeebeebeeeebeeebeee 

□EEEEEEEEEEfeZEEEEEEEEEBBEBBEBEEBE 

bebbeeeebeebeeehbebbbeeeeebbbeee 

bbebebeebbebbbebbeeeebbbbebbbbee 

BEEBEEEEEEEEEEEEEEBEEBBEEEEBEBEE; 

BEEEBBBEBBEEBEBBEEEBHBBEBBB BEE EB 

EE0EEEEEEB®EEEEBEEÍ^EB33I3I3E1EHHI3E1B 
BBEEBBBEEpmEBEEBBEEEÍEfoBBEEEBEEBE 
0EH0EEEE1I3HHEEEEEHB0HBÍÍ00BHE00EEE 
BEEEEBBBEEBEEEEEBEBEEEEEBBEEEEEE 
EBBBEEEBBEEEEEEEEEEEEEEEEBBEEEEE 
0EEBHEEEEEEEEEE0BEMEEEEEEE000EI3 
0000E000EME00EE0HQ£^00Q00BE]00000 
EEBBBBBEEHBB BEBE BEBE EEBEBBBEBEEE 
B0BE000EEBBEEE032EBEBEBEEB0E00B0E 
BBHEEEEBEEEEEESÍBBBBEEEBEEEEEEEEB 
BBB0E000B0EE00EEEEBEEB0BE000B0EE 
EEEEEEEEEEEEBBEBBBBBSE0BBSBEBBBE 
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CAMPO GRAVITACIONAL 



INSTRUÇÕES 

O programa que apresentamos a seguir produz no vídeo uma 
representação bidimensional do campo gravitacional gerado por 
uma massa puntiforme de acordo com a Teoria Newtoniana da 
gravitação. Sendo M uma massa puntiforme a ser estudada e 
m uma massa de prova também puntiforme, podemos escrever: 

M x m 

F = G e F = m x g 

d x d 

Onde: 

F é a força de atração entre as duas massas: 

d é a distância entre elas: 

g é o campo gravitacional gerado por M a uma distância d: 

G é a Constante Universal da Gravitação; 

Sendo G e M constantes para um corpo, temos: 


constante 

9 = 

d x d 

Isso significa que o valor g do campo gravitacional gerado 
por M depende apenas da distância d. 

Considerando as massas num plano XY como M na origem 
dos eixos, pode-se escrever: 

d- = X- + Y- 
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Evidentemente, estamos considerando apenas o campo gra- 



vitacional gerado ao longo do plano XY, ou seja, impomos a coor- 
denada Z como sendo zero. Desta forma, temos: 

g = g (d x d) 

Portanto: 

g = g(XxX + YxY) 

Sendo g uma função de duas variáveis, podemos então usar 
o plano XY para mapear as posições ao redor de M, e um eixo 
ortogonal Z para indicar o campo gravitacional local. 

O programa inicia pedindo o valor da massa que gerará o 
campo gravitacional. Logo após, ele já começa a traçar o gráfico 
correspondente. Para parar a execução em qualquer instante, 
tecle CONTROL+STOP. 

Experimente valores de massa entre 50 e 5000 e veja que 
efeitos diferentes podem ocorrer. O que acontece quando a 
massa é zero? 

Figura 13.1 — Programa CAMPO GRAVITACIONAL 


100 ' Campo Gravitacional 
1Í0 ' Milton Maldonado Jr . 

1.20 r 

í 30 INPUT"Qual a massa"; M: IFM<0THENÍ30 
140 COLOR 15,4,4: SCREEN 2:DIM A/£<255):F0 
R X=0 TO 255 :AZ(X)=200:NEXT X : BEEP 
150 D~0 : FOR Y=0 TO 110 STEP5:Yi=Y 
160 FOR X=0 TO 130 : Xi=X : GOSUB 200:NEXT X 
: D=D+ . 75 

170 FOR K=Y+i TO Y+4:Yi=K:F0R X=0 TO 130 
STEP 5 : Xi=X : GOSUB 200:NEXT X : D=D+ . 75 : NE 
XT K , Y 

180 Y=Y+i : FOR X=0 TO 130 : Xi=X : GOSUB 200: 
NEXT X 

190 GOTO 190 

200 XF= (XI -65 ) /10 : YF= (Yi-60)/8 

210 IF XF=0 AND YF=0 THEN RETURN 

220 Z==M/(XF A 2+YF A 2) :ZT=Z-Y1 + 180 

230 IF ZT>AZ(16+Xi+D) THEN RETURN 

240 PSET(i6+Xi+D,ZT> : A% ( 16+Xi +D ) =ZT : RETU 

RN 


87 


ANÁLISE 


0 programa simula a perspectiva cavaleira do plano dis- 
torcido pela função gravidade. As linhas 150 a 190 operam os 
"loops" de varredura do plano XY ao redor da massa M (situada 
na origem) e calculam a altura do ponto correspondente. 

A sub-rotina das linhas 200 a 240 imprime o ponto nas coor- 
denadas calculadas e coloca sua altura no elemento correspon- 
dente do valor A%. Este valor (de 256 elementos) é usado para 
memorizar a máxima altura impressa em cada uma das 256 
colunas da tela e serve para o algoritmo de ocultação dos pon- 
tos "invisíveis' (aqueles que estão 'ocultos" por outras imagens 
que estão mais próximas do observador). 

A ocultação dos pontos invisíveis foi obtida pela prioridade 
de impressão da frente para o fundo da imagem. A linha 230 testa 
se um ponto deve ou não ser impresso comparando sua altura 
com o elementos correspondente de A%. Se a altura do ponto 
for maior, faz-se a impressão. Caso contrario, não. 

A função matemática propriamente dita está definida na 
linha 220. Experimente mudar esta função para outros polinó- 
mios, como: 

Z = aX* - bY* 

Ou: 

Z = a x sen (bX 2 — cY 1 ) 

Procure os valores a. b e c que dão os melhores resultados. 
E um pouco difícil, mas vale à pena! 
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INSTRUÇÕES 

O programa TESTE pode ter dois objetivos, o primeiro de 
ser um instrumento para elaboração de provas de múltipla-es- 
colha, e o segundo como um auxiliar de estudos. 

A função básica do programa é de relacionar dois tipos de 
itens. Para isso o programa foi dividido em duas etapas, a pri- 
meira para o estudo dos itens, a segunda para os testes envol- 
vendo os mesmos. 

Quando é selecionada a opção ESTUDAR, na tela serão mos- 
trados dois itens que relacionam-se entre si (no nosso caso. 
países e capitais). Nesta etapa você deverá observar atentamente 
os itens para tentar memorizá-los. 

Na segunda opção, TESTES, o computador elaborará uma 
pequena avaliação composta por 5 testes distintos, referentes 
aos itens estudados anteriormente. 

Ao contrário dos testes normais, vocè deverá digitar a res- 
posta correta por extenso, em vez de simplesmente escolher 
uma letra para assinalar a alternativa correta. Este artifício fa- 
cilita uma maior memorização, as vezes até de maneira incons- 
ciente. A resposta do teste deve ser digitada exatamente como 
ela se encontra nas alternativas. 

Caso você acerte o teste, o computador irá parabenizá-lo e 
elaborar a próxima questão. Porem, se errar, eie fornecera a res- 
posta correta, para você poder se redimir de seu erro em uma 
próxima oportunidade. Logo após fornecer a resposta correta, o 
computador passará ao próximo teste. 

E assim se prossegue sucessivamente até completar os 5 
testes, quando o computador finalmente calculará a sua nota. 

Digite o programa com cuidado. Quase todas as linhas são 
simples, isto é, sem multi-instruções. 
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Figura 14.1 — Programa TESTES 

10 " Testes 

20 ' Carlos Eduardo Rocha Salvato 
30 ” 

40 X=16 
50 KEYOFF 

60 DIMAí (X) , Bl ( X > , E ( X > , G < X > ,L(X) , F%<5 > , R 
%(5),T<5),R<5) 

70 FORA=iTOX 
80 READA%<A) ,BÍ (A) 

90 NEXT 

1.00 OPEN "GRP : " FOR OUTPUT AS #1 
í í 0 SCREEN2 
í 20 P=0 
130 CLS 

140 C0L0R2 , 1,1 

150 PSET ( 80 , 20 ) ,1 

160 PR INTH1 , "Al t er nat ivas" 

170 PSET < 20 , 40 ) , 1 

180 PRINTHi ,"i — Estudar" 

190 PSET < 20 , 50 ) , 1 

200 PRINTHi ,"2— Testes" 

210 EÍ-INKEY* 

220 IFE*=""THENCOLOR8,i,l:PSET<20,40) ,1: 
PR INT# 1 , "1 " : PSET ( 20 , 50 > , 1 sPRINTttl ,"2"sF0 
R A= 1TO20: NEXT :C0L0R2, 1,1 : GOTO! 70 
230 IFEÍ< >"l"ANDEí< >"2"THEN210 
240 A=UAL(E%) 

250 ONAGOT 0260,430,210 
260 CLS 

270 PSET( 100,20) , 1 
280 PRINTHi, "Estudar" 

290 PSET ( 1 5 , 40 ) , 1 
300 COLOR 13 

310 PR INTttl , "Par a prx. tem digite RETURN 

// 

320 LI NE ( 192 , 37)- < 250 ,49),10,B 

330 C0L0R8 ,1,1 

340 F0RA-1T0X 

350 PSET ( 20 , 80 ) ,1 

360 PRINT#i,A4<A) 
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370 PSET < 130 , 80 > , 1 
380 PR INTtti ,B$(A>;" 

390 IFINKEY%= // "THEN390 

400 LINE ( 0 , 75 ) - < 250 ,90>,1,BF 

4Í0 NEXT 

420 GOTOÜ0 

430 F0RT=iT05 

440 CLS 

450 C0L0R2 

460 PSET ( í 00 , 20 ) , í 

470 PRINTtti, "Testes" 

480 ERASEG,L r R , T : DIMG < X ) , L ( X ) 

490 TZ= ( RND (-TIME) *X ) + 1 
500 IFE ( 77 . > = ÍTHEN490 
5Í0 E ( T% ) =í 
520 G ( i ) =T% 

530 L < T% ) = 1 
540 FOR AL=2T0X 

550 G ( AL ) =INT< RND ( -TIME ) #X) + i 

560 IFL(G(AL) )=ÍTHEN550 

570 L < G ( AL > ) = í 

580 NEXT 

590 F0RZ=iT05 

600 R<Z)=INT ( RND ( -TINE ) #5 > + í 
610 IFT<R<Z>) =i THEN600 
620 T(R<Z))=i 
630 NEXT 

640 PSET ( 20 , 50 ) , 1 

650 PR INTtti , "Qual a capital do(a> ";A$(T 

7 .) 

660 F0RRE=iT05 
670 COLOR 13 

680 PSET (40, ( RE# 1 5 ) +50 > , 1 
690 PRINTttl ,BÍ(G(R(RE) ) ) 

700 NEXT 
710 GOSUB830 

720 IFRS=B4(T%) THENGOSUB 1 020ELSEGOSUB 118 
0 

730 NEXT 
740 SCREEN0 
750 CLS 
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760 COLORIS 

770 PRINT"Voc acertou " ;P t est es . " : PR I 
NT"Sua nota ";(P*i0)/5 

780 LOCATE0 , 10, 05PRINT "Pressione < RETURN 

>" 

790 ER ASEE : DIME ( X ) 

800 IFINKEY4= ,/,, THEN800ELSEií0 

810 DATA UGANDA, KAMPALA , NIGER IA , LAGOS , EG 

ITO, CAIRO, ARGÉLIA, ARGEL, BRASIL, BRASÍLIA, 

UAL IA, ROMA, JAP AO, TOK 10, INGLATERRA, LONDR 

ES , AR GENTINA , B UENOS AIRES, CANADA , OTTAWA , 

PARAGUAI , ASSUNèAO , URUGUAI , MONTEUIDEU , YEN 

EZUELA, CARACAS, CHI NA, PEOU IM,AUSTR IA, UIEN 

A , SUICA , BERNA 

820 GOT 0820 

830 R%="" 

840 COLOR 8 
850 F0RA=iT0i5 
860 T$=INKEY9> 

870 IFT4=CHR4< Í3>THEN940 
880 IFTÍ=""THEN860 
890 IFT4=CHR$ < 8 > THENGOT 0950 
900 PSET <30+(A#10) ,150) ,í 
910 RÍ=R$+T% 

920 PR INTtti , T% 

930 NEXT 
940 RETURN 
950 A=A-i 
960 COLORI 

970 PSET (30+(A*i0) , 150 ) , 1 
980 PRINTtti,RI GHT% ( R % , 1 > 

990 R5=LEFTÍ(R4, (LEN(RÍ)-i ) ) 

1000 C0L0R8 
1010 GOT 0860 
1020 CLS 

1030 PSET (10,i0),í 
1040 P=P+l 
1050 C0L0R2 

1060 PRINTtti, "Certo. A capital do(a) ";A 
<B(TZ) 

1070 PSET <10, 30 ) , 1 
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1080 PRINTHi , "realmente ";B%(T%> 

1090 PSET ( 10 , 100 ) , 1 
1100 C0L0R2 

1110 PRINTHI /'Pressione" 

1120 PSET ( 95 , 1 00 ) , 1 
1130 PRINTHI, "RETURN" 

1140 PSET ( 95 , 100 ) , 1 

1150 C0L0R8 

1160 PRINTHi, "RETURN" 

1170 IFINKEYÍ=""THEN1090ELSERETURN 
1180 CLS 

1190 PSET <10,Í0),Í 
1200 COLOR 2 

1210 PRINTHi /'ERRADO. A capital do<a) " ; 
A4(TZ) 

1220 PSET ( 1 0 , 30 ) , 1 
1230 PRINTHi," "?B4<TX> 

1240 PSET < 10 , 100 ) , 1 
1250 C0L0R2 

1260 PRINTHI, "Pressione" 

1270 PSET (95,100) ,1 
1280 PRINTHi, "RETURN" 

1290 PSET ( 95 , 100 ) , 1 

1300 C0L0R8 

1310 PRINTHI, "RETURN" 

1320 IFINKEY%=""THENi240ELSERETURN 


ANÁLISE 

A linha 810 contém os itens, que farão parte dos testes. 
Para mudar o assunto, basta alterar a linha 710. para relacionar 
outros itens, como por exemplo: Símbolos e Elementos, Órgãos 
e Funções, Inventores e Invenções, etc. 

Não se esqueça de mudar a pergunta da linha 650. 

Existem ainda uma série de modificações simples e inte- 
ressantes. que podem ser feitas. 

Caso você queira acrescentar ou retirar algum item da 
linha 810. você deve alterar o valor da variável X na linha 40. 
O valor de X deve ser o número de dados da linha 810 dividi- 
do por 2. 

Para aumentar ou diminuir o número de testes, você deve 
alterar os números nas linhas: 430 e 770. 
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Todo processo algorítmico pode ser facilmente reproduzido 
num programa. Atualmente, a maior ênfase educacional deve ser 
para a FORMAÇÃO dos alunos. Cada vez se torna menos neces- 
sário o decorar" pois os dados são facilmente acessíveis. A 
função exercida pelos cálculos, sorobans, ábacos, máquinas me- 
cânicas e também pelo lápis e papel pode ser representada com 
vantagens pelas pequenas calculadoras eletrônicas ou por mi- 
crocomputadores ("decorar" as regras para a extração da raiz 
cúbica de um número envolve fundamentalmente os mesmos 
processos mentais, quer seja com um soroban, com lápis e 
papel ou com um microcomputador). 

A assimilação das informações mais importantes deve ocor- 
rer naturalmente, pelo seu uso espontâneo (não forçado). 

Se quiser saber o peso atômico do OSMIO, pergunte a um 
químico profissional! Ele poderá lhe responder sem nunca ter 
decorado essa informação! Mas se quiser saber qual a dis- 
tância entre as estrelas componentes do sistema CYGNUS XI, 
é melhor perguntar a um astrofísico! 

Saber "decor" a distribuição eletrônica de um dado ele- 
mento não é nada útil para qualquer aluno (a não ser, obviamente, 
para fazer provas e vestiDuiaresj. Muito mais proveitoso e com- 
preender o que significa e como se obtém a distribuição! Uma 
vez que isso tenha sido aprendido, obter o elétron de maior 
energia de um certo elemento é uma tarefa puramente mecânica! 

O programa apresentado a seguir fornece a distribuição ele- 
trônica de um elemento qualquer a partir de seu número atômico. 
Propositadamente, nós o desenvolvemos apenas até um estágio 
bem básico. Com um pouco de imaginação, você pode implemen- 
tá-lo com novos dados sobre cada elementos, reproduzindo a 
TABELA PERIÓDICA e fazendo gráficos para verificar quais pro- 
priedades são periódicas e quais são aperiódicas. 
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Preste muita atenção ao digitar os dados da linha 290. Eles 
são fundamentais! 


Figura 1.1 — Programa DISTRIBUIÇÃO ELETRÓNICA 


10 Distribuição Eletrónica tt 

20 r H RENATO DA SILVA OLIVEIRA tt 

30 '##################«#########♦*#### 

A0 COLOR 15,4: SCREEN 0,,0:KEY OFF 
50 LOCATE 3,5 

60 INPUT"Qual o numero de eletrons" ?Z 
70 IF ZOINT(Z) OR Z<í OR Z>107 THEN 50 
80 CLS : C= :: 0 : PR INT , Z=" ; Z : PR INT : PR INT 

90 FOR G= í TO 18 
100 READ A* 

110 N*=LEFT$(AÍ,i> :L$=RIGHT9,<A4,i> 

120 1=1+1 : IF 1=10 THEN I=0:PRINT:PRINT 
130 PR INT N%; 

140 IF LS="0" THEN PR INT "s"; 

150 IF LS="i" THEN PR INT "p"; 

160 IF Lí="2" THEN PR INT "d"; 

170 IF L*="3" THEN PR INT "f"? 

180 L=VAL<L1) : B=0 

190 FOR S=- . 5 TO .5 STEP 1 

200 FOR M=~L. TO L : Ml=STR* < M > 

210 B=B+i : C=C+1 
220 IF C=Z THEN 250 
230 NEXT M 
240 NEXT S 

250 PR INT HIDÍ(STRS(B) ,2) ; " 

260 IF C=Z THEN 280 
270 NEXT G 

280 IF STR I G < 0 ) =0 THEN 280 ELSE RUN 

290 DATA 10,20,21,30,31,40,32,41,50,42,5 

1,60,43,52,61,70,53,62 


ANALISE 

A linha 290 armazena a distribuição de LINUS PAULING 
(0 = s, 1=p, 2 = d, 3 = f). A variável Z recebe o número atômico 
pelo teclado. O laço entre as linhas 90 e 270 se encarrega de 
distribuir os elétrons nas camadas, de acordo com Z e com a 
linha 290. O laço entre as linhas 190 e 240 é repetido duas vezes 
para cada sub-nível. atribuindo os SPINs aos elétrons e o laço 
entre as linhas 200 e 230 atribue o número quântico magnético 
aos elétrons. 
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APLICATIVOS 



Existe uma característica do microcomputador pessoal que 
muita gente, paradoxalmente, ignora: ele pode ser ÚTIL! 

Isto significa que podemos encarregá-lo de efetuar cálculos 
e tarefas monótonas e repetitivas que de outra maneira nos 
tomariam muito tempo (um tempo às vezes tão longo que tor- 
naria impossível executar as tarefas manualmente). 

Existem alguns programas produzidos profissionalmente e 
tão úteis que chegam a criar "dependência" em seus usuários. 
A “trilogia fundamental' destes programas é constituída pelos 
clássicos EDITOR DE TEXTO, PLANILHA e BANCO DE DADOS. 
Não é nossa intenção, neste iivro. apresentar apiicativos que pos- 
sam competir com software deste tipo. 

Ao contrário, nesta seção nosso objetivo foi o de mostrar 
outros tipos Oe programas, elaborados com a intenção de ensinar 
ao leitor conceitos básicos a serem usados na criação de soft- 
ware aplicável. 

Assim, apresentamos desde um simples CALENDÁRIO que 
permite o cálculo das festas móveis, até o CÔNICAS, de grande 
utilidade para quem precisa elaborar programas que utilizem o 
recurso de perspectiva. 

Os programas ESTATÍSTICA e MATEMÁTICA FINANCEIRA, 
apesar de escritos em BASIC, têm um nível semi-profissional e 
uma utilidade indiscutível. 
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MATEMÁTICA FINANCEIRA i 
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INSTRUÇÕES 

Ouando uma pessoa contrata um serviço de terceiros, ela 
deve pagar por esse serviço. Da mesma forma, quando uma soma 
em dinheiro é emprestada a alguém, é razoável esperar-se um 
pagamento pelo uso do capital emprestado. Assim, quem em- 
presta tem uma compensação pela perda da oportunidade de 
investir em outro lugar. 

Chamamos de "juros" o "pagamento" pelo uso do dinheiro 
emprestado. 

Para ilustrar, imagine que uma pessoa A empreste por um 
mês à uma pessoa B uma quantia de CzS 10 000,00. Suponha 
agora que a pessoa B, no final desse mês, pague à pessoa A o 
valor CzS 11 000.00. Podemos entender a partir deste exemplo 
que, a pessoa B devolveu os CzS 10 000,00 emprestados e pagou 
CzS 1 000,00 pelo uso do capital emprestado durante o mês. Os 
juros do mês são, portanto, de CzS 1 000,00. Note que esta quan- 
tia representa 10 por cento do capital (1 000/10 000 = 10%). 
Assim, dizemos que a "taxa de juros" no mês foi de 10 por cento. 

Imagine que a mesma pessoa A empresta à pessoa B CzS 
10 000,00, a uma taxa de juros mensal de 10 por cento durante 
três meses. Oual será a quantia que a pessoa B deve devolver 
à pessoa A, no final dos três meses? 

Para responder à essa pergunta há necessidade de saber- 
mos como são computados os juros. 

Se os juros forem computados, no final de cada mês, como 
sendo sempre de 10 por cento sobre o "capital inicial”, serão 
denominados JUROS SIMPLES. Assim, a quantia a ser devolvida 
no final de três meses será de CzS 13 000.00 (figura 16.1). 

Por outro lado, se os juros forem computados, ao final de 
cada mês, como sendo de 10 por cento sobre a dívida no co- 
meço de cada mês, serão chamados de JUROS COMPOSTOS. 
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Neste caso, a quantia a ser devolvida no final dos três meses 
será de CzS 13.310.00 (figura 16.2). 

Figura 16.1 — JUROS SIMPLES 



TABELA 

1- JUROS SIMPLES 


MÊS 

DlVIDA NO COMEÇO 
DO MÊS 

JUROS DO MÊS 

DlVIDA NO 
FIM DO MÊS 

1 


10% de 10.000,00 - 1.000,00 

11.000,00 

2 


10% de 10.000,00 - 1.000,00 

12.000,00 

3 

PTumTTJ 

10% de 10.000,00 - 1.000,00 

13.000,00 


Figura 2 — JUROS COMPOSTOS — Pagamento único 



TABELA II 

- JUROS COMPOSTOS 



PAGAMENTO ÚNICO 


MÊS 

DlVIDA NO COMEÇO 
DO MÊS 

JUROS DO MÊS 

DlVIDA NO 
FIM DO MÊS 

1 

' ^ iO» 

10% de 10.000,00 - 1.000,00 

mmm 

2 


10% de 11.000,00 - 1.100,00 


3 

lEEl 

10% de 12.100,00 - 1.210,00 

mm 1 


Note então que os "juros simples" são os juros produzidos 
no primeiro período (mês) multiplicados pelo número total de 
períodos. No exemplo, 10 por cento de 10.000,00 X 3 = 3.000,00. 
Os "juros compostos", entretanto, foram de 3.310,00. São maio- 
res do que os juros simples porque computam “juros sobre 
juros”. Em nossa economia utilizam-se quase que somente 
cálculos com juros compostos. 

Deve ficar clara, neste ponto, a idéia de que duas somas 
diferentes de dinheiro podem ser equivalentes entre si, em 
pontos diferentes do tempo. No exemplo de juros compostos, 
dizemos que CzS 10.000,00 no dia de hoje (valor presente), 
equivalem a CzS 13.310.00 (valor futuro) daqui a três meses 
(número de períodos) a uma taxa de 10 por cento ao mês (taxa 
de juros por período). 

No mesmo exemplo, a pessoa que emprestou CzS 10.000,00, 
na data de hoje. poderia concordar em receber esta quantia em 
pagamentos iguais no final de cada mês (série uniforme), du- 
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rante o período de três meses. Admitindo-se a mesma taxa de 
juros ao mês (10 por cento). CzS 10.000.00, hoje, equivalem a 
uma série uniforme de pagamentos de CzS 4.021,15 (valor da 
prestação) ao tinal de cada mês durante os três meses (figu- 
ra 16.3). 

Figura 16.3 — JUnOS COMPOSTOS — Série Uniforme 


TABELA III - JUROS COMPOSTOS 


SÉRIE UNIFORME DE PAGAMENTOS 



DlVIDA NO 
FIM 

DO MÊS 

PAGAMENTO 

FEITO 

11.000,00 

7.676,74 

4.021,15 

4.021,15 

4.021,15 

4.021,15 


Os dois planos expostos (pagamento único e série unifor- 
me) são equivalentes e podem ser ilustrados esquematicamente 
pelos diagramas da figura 16.4. 


Figura 16.4 — Diagramas de cálculos 

"único pagamento 



. . . Equivale a . . . 


"série uniforme 



A = 4.021,15 


As setas voltadas para cima repre- 
sentam entrada de capital e as 
voltadas para baixo representam 
saida de capital, sob o ponto de 
vista de quem pediu o empréstimo. 


J = 10% ao mês 
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Resumindo, quantias de dinheiro não podem ser compara- 
das diretamente a não ser que o sejam numa mesma data. Para 
compará-las, em pontos diferentes do tempo, é necessário de- 
terminar os valores equivalentes através do uso de cálculos 
apropriados de juros compostos. Estes cálculos constituem a 
essência do programa MATEMATICA FINANCEIRA. 

Assim que você fizer o programa rodar, será apresentado 
um "menu" inicial. Escolha a grandeza a ser calculada pressio- 
nando o número correspondente e a seguir faça a sua opção 
pela letra que esteja de acordo com os valores das grandezas 
que você conhece. 

As várias opções que o programa oferece são: 

l-A) Calcula o VALOR PRESENTE, conhecidos o número de 
períodos, a taxa de juros por periodo e o valor futuro. 

EXEMPLO: Qual o valor que deve ser investido na data de 
hoje, a uma taxa de juros mensal de 1.5%. para que. daqui a 
12 meses, possam ser resgatados Cz$ 100.000,00? 

Entrando com a taxa de juros (1.5), o número de períodos 
(12) e o valor futuro ( 100000 ). o programa deve apresentar a 
seguinte resposta: 

VALOR PRESENTE = CzS 83.638,74 


1-B) Calcula o VALOR PRESENTE, conhecidos o número de 
períodos, a taxa de juros por periodo e o valor da prestação. 

EXEMPLO: Um anúncio diz que um televisor pode ser com- 
prado em 10 meses com uma prestação de CzS 1.800.00, sem 
entrada. Sabendo que a loja cobra 3% de juros ao mês. qual o 
preço do aparelho à vista? 

Entrando com os valores 3. 10 e 1800 para a taxa de juros, 
o número de períodos e o valor da prestação, respectivamente, 
o programa deve apersentar a seguinte resposta: 

VALOR PRESENTE = CzS 15.354.37 


2-A) Calcula o VALOR FUTURO, conhecidos o número de 
períodos, a taxa de juros por período e o valor presente. 

EXEMPLO: Se foram investidos CzS 100.000,00. na data de 
hoje. a uma taxa de juros mensal de 1.2%, qual deverá ser o 
montante daqui a um ano (12 meses)? 

Entrando os valores, a resposta deve ser: 
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VALOR FUTURO = CzS 115.389,46 

2-B) Calcula o VALOR FUTURO, conhecidos o número de 
períodos, a taxa de juros por período e o valor da prestaçao. 

EXEMPLO- Se depositarmos CzS 1.500.00 todo mes numa 
instituição financeira que paga 2% de juros ao mês qual de- 
verá ser o montante a ser recebido após dois anos (24 meses) 

de depósitos? 

O resultado deve ser: 


VALOR FUTURO = CzS 45.632.79 

3-A) Calcula o VALOR DA PRESTAÇÃO, conhecidos o nú- 
mero de períodos, a taxa de juros por período e o valor pre- 

EXEMPLO: Qual o valor da prestação de um automóvel se 
ele custa CzS 72.000.00 à vista e sabendo-se que este valor foi 
financiado em 6 meses, sem entrada, a uma taxa de juros men- 
sal de'3%? 

A resposta é: 

VALOR DA PRESTAÇAO = CzS 13.291.02 

3- B) Calcula o VALOR DA PRESTAÇAO, conhecidos o nú- 
mero de períodos, a taxa de juros por período e o valor futuro. 

EXEMPLO: Uma reportagem diz que um novo microcompu- 
tador será lançado daqui a 6 meses ao preço de Cz$ 15.800.00. 
Quanto deve ser depositado mensalmente, numa instituição fi- 
nanceira que paga 1.3% de juros ao mês. para que se consiga 
a quantia necessária para comprar o aparelho quando este tor 

lançado? 

A resposta é: 

VALOR DA PRESTAÇAO = CzS 2.549.04 

4- A) Calcula a TAXA DE JUROS, conhecidos o valor pre- 
sente, o valor da prestação e o número de períodos. 

EXEMPLO: Um estabelecimento comercial financiou a quan- 
tia de CzS 9.000,00 em 5 meses. A prestação pedida foi de CzS 
2.000. sem entrada. Oual a taxa mensal de juros cobrada pelo 
estabelecimento? 

A resposta deve ser: 


TAXA DE JUROS = 3.618% 

4-B) Calcula a TAXA DE JUROS, conhecidos o valor pre- 
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sente, o valor futuro e o número de períodos. 

EXEMPLO: Um terreno foi adquirido pela quantia de CzS 
650.000.00, numa certa data e passou a valer CzS 1.210.000,00 
um ano depois (12 meses). Qual foi a taxa mensal de valoriza- 
ção do terreno 7 

Fazendo o preço inicial (650000) ser o valor presente e o 
preço final (1210000) ser o valor futuro, onde o número de pe- 
ríodos é igual a 12 . o programa responderá da seguinte forma: 

TAXA DE JUROS = 5.315% 

5-A) Calcula o NÚMERO DE PERÍODOS, conhecidos o valor 
presente, o valor da prestação e a taxa de juros por período. 

EXEMPLO: Oual o número de prestações que uma pessoa 
deverá pagar para saldar um empréstimo de CzS 20.000,00 se 
ela só pode pagar no máximo a prestação de Cz$ 1.700,00 por 
mês, sendo que a taxa de juros mensal é de 2%? 

A resposta é: 

NÚMERO DE PERÍODOS = 13.55 

5-B) Calcula o NÚMERO DE PERÍODOS, conhecidos o valor 
futuro, o valor da prestação e a taxa de juros por período. 

EXEMPLO: Durante quantos meses deve-se depositar a 
quantia de CzS 10.000,00 para poder-se resgatar o valor de CzS 
200.000,00, com uma taxa de juros de 1.8% ao mês? 

O resultado fornecido pelo programa é: 

NÚMERO DE PERÍODOS = 17.24 


5-C) Calcula o NÚMERO DE PERÍODOS, conhecidos o valor 
presente, o valor futuro e a taxa de juros por período. 

EXEMPLO: Ouantos meses deve-se esperar para que o ca- 
pital de CzS 120.000.00 triplique a uma taxa de juros mensal 
de 2%? 

Entrando com os valores 120000, 360000 e 2 para o valor 
presente, o valor futuro e a taxa de juros, respectivamente, 
serão fornecidos pelo programa conforme segue: 

NÚMERO DE PERÍODOS = 55.48 

Após cada cálculo, o programa oferece invariavelmente as 
seguintes opções: 


TECLA "N" — Para novo cálculo com a mesma opção. 
TECLA "O" — Retorna ao “menu" do programa para que 
outra opção possa ser escolhida. 

Figura- 16.5 — Programa MATEMATICA FINANCEIRA 


1000 ' MATEMATICA FINANCEIRA 
10Í0 ' LUIZ TARCÍSIO DE CARUALHO JR 
í 020 ' 

1030 ON ERROR GOTO 2360 
1040 KEYOFF ’ SCREEN2 s COLOR 15,1,1 
1050 OPEN"GRP:"FOR OUTPUT AS Hl 
1060 GOSUB2270 

1070 C0L0R3:PSET( 10, 125) :PRINT«i /'Escolh 
a o valor a ser calculado" 

1080 COLOR 15 s X3>= INPUTS < 1 ) : IFASC ( XS ) < 490R 
ASC < X% ) >53THENGOSUB2260 • GOTO 1080 
1090 0=ASC<XÍ> :GOSUB1120 

1100 LINE( 10, 125 >-<255,135) , 1 , BF : PSET < 30 
, 125) , 1 :C0L0R3:PRINT#i ,"0s valores conhe 
eidos sao:":COLOR8:PSET<30, 140) , 1 
1110 ONOGOTOi 130, 1260,1390,1520,1740 
1120 0=0-48 :ONOGOSUB2210, 2220, 2230, 2240, 
2250 : RETURN 

1130 PR INTtti , " < A ) C23,C43,C53" : PSET < 30 , 1 
55>,i SPRINT»!, "<B> C3D , C4D , C5D" 

1140 COLOR 3 s PSET <30, 170) , 1 : PR INTtti , "Esco 

lha a opcao ,, :YÍ=INPUT4<l):0=ASC<Y4)-64sl 

F0< 10R0 >2THENG0T0i 140 

1150 ONOGOTO1160, 1210 

1160 GOSUB 2300! GOSUB2010 • GOSUB2030 

1170 INPUT"Qual o OALOR FUTURO ";F 

1180 R=F/X ! GOSUB2060 

1190 L0CATE12, 12 : PR INT"0AL0R PRESENTE" ! L 
OCATEK , 14 : PR INT"Cz$ ";R% 

1200 GOSUB 23i0:GOTOii60 

1210 GOSUB 2300 ! GOSUB 20 10 : GOSUB 2030 

1220 INPUT"Qual o UALOR DA PRESTACAO " ; A 

1230 R=A*<X~i >/ < I*X) 5GOSUB2060 

1240 L0CATE12,i2:PRINT"0AL0R PRESENTE":L 

OCATEK, 14: PR INT"Cz$ ";RÍ 
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1250 GOSUB23i0sGOTO12i0 

1260 PRINTtti,"<A) C1D,C4I),C5II":PSET< 30 , 1 
55 ) , 1 : PR INTtti , " ( B ) Z31 , LA 3 , C53" . 

1270 COLOR 3: PSET < 30 ,170) ,i!PRINTttí, "Esc o 
lha a opcao": Y!=INPUT$< i ) : 0=ASC < Y* > -64 : I 
F0< 10R0 >2THENGOTO1270 
1280 ONOGOTO1290, 1340 
1290 GOSUB2300 s GOSUB201 0 : GOSUB2030 
1300 INPUT"Qua 1 o VALOR PRESENTE ";P 
1310 R=P#X 5GOSUB2060 

1320 L0CATE13 , 12 s PR INT" VALOR FUTURO":LOC 
ATEK , 14 : PR INT"Cz9> ";R* 

1330 G0SUB231 0 : GO TO 1290 

1340 GOSUB2300 ' GOSUB20Í 0 : GOSUB2030 

1350 INPUT"Qual o VALOR DA PRESTACAO ";A 

1360 R=A*(X-1 >/I : GOSUB2060 

1370 L0CATE13, 12 : PR INT"VALOR FUTURO":LOC 

ATEK,14:PRINT"Czí "?R5 

1380 G0SUB231 0 :GOTO1340 

1390 PR INTtti (A) C13,C4D,C5D": PSET ( 30 , 1 
55 ) r 1 s PR INTtti (B ) C2D,C4II,C5D ,/ 

1400 COLOR 3: PSET <30, 170) ,1 : PR INTtti , "Esco 
lha a opcao":Y$=INPUT$(i) : 0=ASC < YS >-64s I 
FO< 1 ORO >2THENG0T0i 400 
1410 ONOGOTO1420,1470 
1420 GOSUB2300 : GOSUB20Í 0 : GOSUB2030 
1430 I NPUT"Qua 1 o VALOR PRESENTE ";P 
1440 R=P»I*X/<X-1 ) SGOSUB2060 
1450 LOCATE10, 12 : PR I NT"VALOR DA PRESTACA 
O" : LOCATEK , 1 4 : PR INT"Cz$ ";R% 

1460 GOSUB2310: GO TO 1 420 

1470 GOSUB2300 : GOSUB201 0 : GOSUB2030 

1480 INPUT"Qua 1 o VALOR FUTURO ";F 

1490 R=F#I/(X-i) : GOSUB2060 

1500 LOCATE10, Í2:PRINT"VAL0R DA PRESTACA 

O" ! LOCATEK , 1 4 : PR INT"Cz$ ";R% 

1510 GOSUB2310 :GOTO1470 

1520 PRINTtti ,"<A) C 1 3 , C3D , C5 1" : PSET < 30 , 1 
55) , 1 :PRINTtti , "<B ) C 1 1 , C23 , C53" 

1530 COLOR 3 : PSET (30,170), 1 : PR INTtti , "Esc o 
lha a opcao":Y5=INPUT%< 1 ) :0=ASC<YÍ )-64: I 
FO<iORO)2THENGOTO1530 
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í 540 ONOGOTOÍ550 , Í660 
í 550 GOSUB2300 : GOSUB20Í0 

í 560 L0CATE2,2: INPUT"Qual o VALOR PRESEN 
TE ";P 

í 570 L0CATE2 , 4 : INPUT"ôual o VALOR DA PRE 
STACAO " ; A 

1580 L0CATE2,6: INPUT"Qual o NUM. DE PERI 

ODOS " ; N 

1590 1=10:12=0 

1600 Aí=<P*I*<í+I> a N>/<<í+I> a N-í>:AÍ=INT 
<AÍ»100+.5)/i00: 13=ABS < I -12 > /2 : 1 2=1 : IFA= 
A1THEN1630 

1610 IFA< Aí THENI = I-I3ELSEI = I + I3 
1620 GOTO1600 

1630 J=INT < 1*100000! +.5)/1000 

1640 LOCATEÍ0, 12 : PR INT"TAXA DE JUROS":LO 

CATE12, 14:PRINTJp // % // 

1650 GOSUB2310 : GOTO 1550 
1660 GOSUB2300 : GOSUB201 0 

1670 L0CATE2 , 2 : INPUT"Qual o VALOR PRESEN 
TE ";P 

1680 L0CATE2 , 4 : INPUT"Qual o VALOR FUTURO 
"9 F 

1690 L0CATE2,6: INPUT"Qual o NUM. DE PERI 
ODOS " ; N 

1700 I=(F/P) A (l/N>-1 

1710 J=INT ( 1*100000 ! +.5)/1000 

1720 LOCATE10 , 12: PR INT"TAXA DE JUROS":LO 

CATE12, 14:PRINTJ;"% ,/ 

1730 G0SUB231 0 :GOTO1660 

1740 PRINTtti ,"< A> ClD,C3D,C4D":PSET(30 r í 
55>,í:PRINT#i,"<B> C2D,C3D,C4D ,/ :PSET<30, 
170 ) , 1 : PR I NTM 1 , " < C ) C13,C23,C4]" 

1750 COLOR 3 : PSET ( 30 r 185 ) , 1 :PRINTtti ,"Esco 
lha a opcao":Y$=INPUT% ( 1 ) : 0=ASC < Y4 > -64 : I 
F0< ÍORO >3THENG0T0Í 750 
1760 ONOGOTO1770 r 1850 ,1930 
1770 GOSUB2300 : GOSUB20Í 0 

1780 L0CATE2 , 2 : INPUT"Qual o VALOR PRESEN 
TE ";P 

1790 LOCA TE 2 , 4 : INPUT^Qual o VALOR DA PRE 
STACAO " ; A 
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1800 L0CATE2 , 6 s PR INT"Qual o taxa de juro 
s":l_0CATE3 r 7: INPUT"expressa em porcentag 
em" ; J 

1810 1= J/100 : N= ( LOG ( A ) -LOG ( I > -LOG < A/ 1 -P ) 
>/LOG< i+I ) 

1820 N=INT<N*i00+.5)/100 

1830 L0CATE8 , 1 2 s PR INT "NUMERO DE PERÍODOS 
" : LOCATE 12 , 14:PRINTN 
1840 GOSUB2310 : GOTO 1770 
1850 GOSUB2300 : GOSUB201 0 

1860 L0CATE2 ,2:lNPUT"Qual o OALOR FUTURO 
";F 

1870 L0CATE2, 4 : INPUT"Qual o UALOR DA PRE 
STACAO " ; A 

1880 L0CATE2 , 6 : PR I NT"Oua 1 o taxa de juro 
s":l_0CATE3,7: INPUT"expr essa em porcentag 
em" ; J 

1890 I = J/100: N=LOG <F*I/A+i) /LOG < I + 1 ) 

1900 N=INT ( N* 1 00+ . 5 ) /i 00 

1910 LOCATES , 12 5 PR INT "NUMERO DE PERÍODOS 
" 5 LOCATE 12 ,14:PRINTN 
1920 G0SUB231 0 s GOTO 1 850 
1930 GOSUB2300 : GOSUB20 1 0 

1940 L0CATE2 , 2 s INPUT"Qua 1 o VALOR PRESEN 
TE "fP 

1950 L0CATE2 , 4 : INPUT"Qual o VALOR FUTURO 
";F 

1960 L0CATE2 r 6 : PR INT"Qual a taxa de juro 
s" : L0CATE3 , 7 : INPUT"expr essa em porcentag 
em" ; J 

1970 1= J/i 00 s N=LOG < F/P ) /LOG ( 1 + 1 > 

1980 N=INT <N#i00+.5)/100 

1990 L0CATE8, 12 : PR INT"NUMERO DE PERÍODOS 
" : LOCA TE 12 r 14sPRINTN 
2000 GOSUB2310 s GOTO 1930 

2010 PR INTSTR ING5 (39,219) s LOCATE0 , 22 s PR I 
NTSTR ING4 ( 39 , 219 ) ; 

2020 RETURN 

2030 L0CATE2,2:PRINT"0ual a taxa de juro 
s":L0CATE3,3: INPUT"expr essa em porcentag 
em"; J 
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2040 L0CATE2 ,5:1 NP UT "Qual o numero de pe 
r i odos" ;N 

2050 I=J/100:X=< i+I > A N : L0CATE2 ,7:RETURN 
2060 R = INT < R# 100+ . 5 > /i 00 

2070 RS=STRS(R ) :K=LEN(R4) :F0RU=2T0K-í : IF 
MID$(R4,U,i) ="E"ORMIDl ( R% , U , 1 ) ="D"THENRE 
TURN 

2080 NEXTU 

2090 CÍ="":IFR=INT(R)THENGOTO2Í30 
2100 R%=STRi(R> :IFMID%<R%,LEN<RÍ )~i ,1 >■" 
„"THENC%=","+RIGHT%<R$, i > +"0" : GOTO2120 
2110 C%=","+RIGHT<6<R$,2> 

2120 R=INT (R) SGOTO2140 
2130 C%=",00" 

2140 RÍ=STR4<R> :R*=MID*(RS,2) :HS="" 

2150 K=LEN(RÍ) : IFK < =3THENH*=RÍ : GOTO2190 
2160 NP=INT(K/3> :RE=K-NP*3 
2170 IFRE=0THENFORSS=1TOK -3STEP3 : FORS=SS 
T0SS+2:H4=H4+MID%<RÍ ,S, 1) : NEXTS : HÍ=H$+" . 
":NEXTSS:H*=H$+RIGHTÍ <R%,3) :GOTO2190 
2180 H4=LEFT4<R*,RE) : F0RSS=RE+1T0KSTEP3 : 
H$=H1+" . ":F0RS=SST0SS+2: H%=H$+MI D$ < R4 , S , 
1) :NEXTS:NEXTSS 
2190 IFR-0THENHÍ="0" 

2200 R4=Hl + C<ü:K=LEN<R*> : K= < 35-K > \2 : RETUR 


N 

2210 PSET ( 30 , 35 ) , 1 s PR INT#Í , "C 1 3 VALOR PR 
ESENTE": RETURN 

2220 PSET<30,50> , 1 : PR INT# 1 , "C2D VALOR FU 
TURO": RETURN 

2230 PSET ( 30 ,65) , 1 : PR INTtti , "C33 VALOR DA 
PREST AC AO" : RETURN 

2240 PSET < 30 , 80 ) ,i:PRINTtti,"C43 TAXA DE 
JUROS": RETURN 

2250 PSET ( 30 , 95 ) , 1 :PRINT#i , "C5D NUMERO D 
E PER IODOS" : RETURN 

2260 PSET < 70 , 150) , 1 : PR INTWi , "OPCAO INVAL 
IDA" : FOR I-1TO800 :NEXTI:LINE(70,150)-(190 


,160>,i,BF:RETURN 

2270 CLS : PSET (40,5) , 1 : C0L0R8 : PR INTttí , "MA 
TEMATICA FINANCEIRA" 
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2280 COLOR 7 : G0SUB22Í 0 : GOSUB2220 : G0SUB223 
0 : GOSUB2240 : GOSUB2250 
2290 RETURN 

2300 COLOR í 5 r 4 : SCREEN0 : WIDTH39 : RETURN 
23Í 0 LOCATE0,20:PRINT" 'O ' P/OUTRA OPCAO 
OU 'N ' P/NOUO CALCULO" 

2320 AÍ=INKEY% 

2330 IFA%="0"0R A%="o"THENRUN 
2340 IFA%="n"OR A%="N"THENRETURN 
2350 GOT 02320 

2360 COLORÍ5,8:CLS:LOCATEÍ0,9:PRINT"UALO 
R < ES ) INUALIDO<S)":FORU=iTOi000:NEXTU:RU 
N 


ANÁLISE 

0 programa não contém detalhes muito complicados em 
sua estrutura. Envolve apenas as fórmulas de cálculo de juros 
compostos, conhecidas por quem já estudou alguma vez MATE- 
MÁTICA FINANCEIRA, e certas subrotinas de formatação da tela 
e de tratamento dos valores envolvidos nos cálculos. 

As linhas 1030 a 1110 constroem a tela correspondente ao 
‘menu, e permitem a escolha da opção de cálculo desejada. 

Os cálculos de cada uma das opções estão contidos nas 
linhas do programa que se seguem: 

Opção 1-A: linhas 1160 a 1200. 

Opção 1-B: linhas 1210 a 1250. 

Opção 2-A: linhas 1290 a 1330. 

Opção 2-B: linhas 1340 a 1380. 

Opção 3-A: linhas 1420 a 1460. 

Opção 3-B: linhas 1470 a 1510. 

Opção 4-A: linhas 1550 a 1650. 

Opção 4-B: linhas 1660 a 1730. 

Opção 5-A: linhas 1770 a 1840. 

Opção 5-B: linhas 1850 a 1920. 

Opção 5-C: linhas 1930 a 2000. 

Além disso, é interesse notar a estrutura de funcionamento 
da sub-rotina que se inicia na linha 2060 e termina na linha 2200 . 
Ela converte a variável numérica (R), correspondente às respos- 
tas, em uma variável "string" (RS), formatada segundo o padrão 
financeiro. Por exemplo, o valor 23456.4587, armazenado em R. 
torna-se "23.456,46", armazenado em R$. 
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ESTATÍSTICA 




INSTRUÇÕES 

Frequentemente precisamos analisar as características cie 
um certo grupo de dados, como o comportamento da variável 
nota em uma classe ou a distribuição do salário em uma certa 
empresa. 

Para podermos ter uma visualização mais completa do con- 
junto dos dados, lançamos mão de certos gráficos, mais explici- 
tamente o histograma e o gráfico em setores. Histogramas são 
gráficos de barras (fiy. 17.2a). cujo eixo das abcissas repre- 
senta as classes (ou partições) e isso quer dizer que os dados 
representados por aquela barra encontram-se entre os valores 
extremos que compreendem a barra. No histograma, depen- 
dendo do número dc classes e dos dados a serem tratados, 
todas as classes poderão ter uma base maior ou menor. O eixo 
das ordenadas representa a frequência relativa, que nada mais 
é do que a porcentagem de cada uma das classes. 

O outro gráfico apresentado pelo programa é o gráfico em 
setores, que mostra qual a porcentagem de cada classe em rela- 
ção ao conjunto total dos dados. 

A figura 17.2b mostra um gráfico em setores. 

O programa também calcula algumas medidas de tendência 
central e de dispersão 

MÉDIA A média aritmética é a soma de todos os valores 
da amostra dividido, pelo número de dados da 
amostra. 

ME = 2xi/n 

MODA A moda é definida como a realização mais fre- 
quente do conjunto de valores observados. Como 
estamos trabalhando em um histograma, resolve- 
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mos optar como sendo moda a média aritmética 
de classe que apresenta a maior frequência rela- 
tiva. Caso o conjunto de dados tenha duas ou 
mais classes com a mesma frequência relativa, a 
moda poderá ter mais de um valor. 

DESVIO O desvio médio é uma medida de dispersão: mede 

MÉDIO a concentração dos dados em torno da sua média 

portanto, 

DM = ll(xi-ME)l/n 


VARIÂNCIA A variância é outra medida de dispersão e é defi- 
nida como: 

VAR = S(xi-ME) 2/n 

DESVIO Como a variância expressa o desvio quadrático 
PADRÃO médio, é definido o DESVIO PADRÀO, que é a raiz 
quadrada da variância. 

DP = SQR(VAR) 

Deste modo a nossa medida de dispersão ficará 
expressa na mesma unidade que o conjunto dos 
dados. 


Figura 17.1 — Programa ESTATÍSTICA 

10 ’** HISTOGRAMA E GRAFICO SETORIAL. «* 
20 '# Henrique de Figueredo Luz -1986 * 
30 '*#«*#**#*###*»*##***#***»##*##*###« 
40 MAXFILES=2:0PEN"GRP:"ASHi :POKE«HFCAB, 
255: D IM D( 10) ,P ( 10) , A$ ( 10) : DEFUSR=&H156 : 
KEY OFF 

50 KEY ( 1 ) ON: KEY<2) ON: KEY(3> 0N:KEY<4 
) ON : WIDTH 40: 

60 ON ERROR GOTO 1310: SCREEN0:ON KEY GO 
SUB 150,520,720, Í340:CLS 

70 COLOR, 4:PRINT"**»****«**«* Estatistic 
a ****#*»###*#**" 

80 PR INT"CF 1 3 Entrada de dados" 

90 PRINT"CF2D Histograma" 

100 PR INT"CF33 Grafico em setores" 

110 PRINT"CF4D Imprime o video" 

120 PR INT, , "Sei ec i one a opao desejada" 
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.1.30 A=USR ( 0 ) s GOT O Í30 

Í40 '»#***#* I/O de dados *#****»»»#*** 
1.50 CLS 

1.60 PRINT "#*#*****«** Entrada de dados * 
******** w":PRINT SPRINT 

170 LOCATEi 0 s PRINT*'! Le do cassete" 

:LOCATEi0: PRINT"2 Grava no cassete" 

: LOCATEi 0 : PRINT"3 Entrada via tecla 

do":l_OCATEÍ0: PRINT"4 Alteracao de d 

ados" SPRINT SPRINT: : LOCATEi 0: PR INT"Outr a 
tecla retorna ao menu" 

1.80 A4=INPUT% < i ) 

190 IF AS="4" THEN GOTO 390 

200 IF A$="3" THEN GOTO 360 

2i0 IF Aí="2" THEN GOTO 300 

220 IF A4<>"i" THEN CLSsGOTO 50 

230 CLS: INPUT"Qual o nome do arquivo"; A* 

: A<r,="rA |: ;:"+ô | l 

240 OPENAÍ FOR INPUT ASH2 

250 INPUT «2, ND, NP 

260 ERASED: DIM D(ND-i) 

2 70 FOR F=0 TO ND-i 

280 INPUT#2,D(F) : NEXT : CL0SEH2 

290 GOTO 150 

300 CLS:lNPUT"Qual o nome do arquivo";A$ 

: A%-"CAS s "+AÍ6 

310 0PENA1 FOR OUTPUT ASH2 

320 PR INTH2 , ND , NP 

330 FOR F=0 TO ND-i 

340 PRINTH2,D(F) s NEXT : CL0SEM2 

350 GOTO i 50 

360 CLS s INPUT"Ent r e o numero de dados";N 
D s INPUT"Ent r e o numero de partições <m>: 
256 ) " ; NP : Dí =ND-i s ER ASE D : DIMD < Di ) : S=0 
370 PR INT"No . DADO" 

380 FOR F=0 TO Di: PR INTF+ i : LOCATE i 0 , CSR 
LIN-i sLINE INPUTDA5sD(F)=VAL(DAD04) s NEX 
T F: GOTO 150 
390 Di=ND-i 

400 CLS: PRINT"********w******Alteracao* 

**************": LOCATEi 0 : PR INT"i Nu 

mero de dados" : LOCATEÍ0 : PRINT"2 Num 

ero de part i coes":LOCATEi0: PRINT"3 

Dados" 
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410 A%=INPUT*<1 ):P=ASC(A4):IF P<49 OR P> 
5Í THEN GOTO 150 

420 IF P=49 THEN PRINT"valor atual"ND:LI 
NEINPUT"entre o novo vai or"; DADOSí : ND=VA 
L ( DAD0S4 ) s GOTO 440 

430 IF P=50 THEN PRINT"valor atual"NP:LI 
NEINPUT // ent r g o novo vai or " ; DAD0S4 : NP-VA 
L ( DAD0S4 ) : GOTO 400 

440 CLS:PRINT // P.rcc i one : " : PR INT" CRETURNI 
para alterear":PRINT" barra para contin 
uar " : DIMQ < ND-i ) sFOR F=0 TO Di : Q < F ) =D ( F ) : 
NEXT 5 ER ASE D 
450 FOR F=i TO ND 

460 L0CATE5,5:PRINT"dado no"F"val or ="Q < F 
-i)" "s A4=INPUT%(1> 

470 IF Al=CHR4<i3) THEN L0CATE21 , 5 : LINE 
INPUTDA<b:Q(F-i >=UAL<DAÍ> 

480 NEXT 

490 DIMD ( ND-i ) : FOR F=0 TO ND-i : D < F ) =0 ( F ) 

: NEXT : ER ASE 0 
500 GOTO 400 

510 '#»#***#** monta histograma##*»#** 

520 GOSUB 980: SCREEN2 : RESTORE: DRAU"BM 
7 r 0D184R248" : PRESET (20,1 85 ) «PRINTH1 ,"F r 
et orna ao menu" 

530 FOR F=0 T07 : READA : B5=B9>+CHR4 < A ) :NEXT 
:SPRITE$<i)=Bt:B %*>"" 

540 FOR F=0 T07:READA : B$=B$+CHRl < A ) : NEXT 
: SPR ITEí < 2 ) = : B% 

550 LI NE (0,0) -(256, 8) , 1 3 , BF : PRESET < 0 , 0 ) : 
FOR F =0 TO 4: READ A<&: PRESET <6#F ,0) , 13 
: PR INTtti r A% : NEXT 

560 FOR F =0 TO 4: READ Aí: PRESET ( 123+6# 

F , 0 ) , 13 : PR INTttí r A% : NEXT 

570 I=248/NP 

580 FOR F=0 TO NP-i 

590 LINE < 7+F*I , 183 ) - < 7+1* < F+i ) , 1 83-P ( F , 2 
)),14,Bs NEXTF 

600 PUTSPR ITE2 , ( ( VER-i ) *1 +1 , 179-P ( VER , 2 ) 
) r 3 

610 PUTSPR ITEi , ( 5+ < VER-i ) *1 + 1 , 184) ,3 
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620 AS=INPUTS<1> 

630 P=ASC ( AS ) 

640 IF P = 3i AND DER < NP THEN OER=DER+i 
650 IF P=30 AND DER >0 THEN DER=DER-i 
660 L INE ( 30 ,0)-(ii9,7> , 1 3 , BF : LINE(153,0 
) - ( 256 ,8) , 1 3 , BF : PRESET < 30 , 0 > , 1 3 
670 AS=STRS ( CSNG < MI + < ( MA-MI ) /NP *DER > > )+C 
HRS ( 255 ) +STRS ( CSNG ( P ( DER , 1 ) /ND ) ) 

680 L=36 s Q=0: FOR F=í TO LEN<AS): BS=MI 
DS(AS,F,i> :IF BS=CHRS<255> THENL=i53 s Q=* 
F ELSE PR INT H 1 , BS : PRESET < L + 6* < F-Q >, 0 >, 1 
3 

690 NEXT 

700 IF P=70 THEN RETURN 60 ELSE 600 

710 '********* grafico em setores ***** 

720 GOSUB 980:CLS:LR=50:SR=44 

730 INPUT"Deseja colocar a frequência na 

s parti coes" ; AS s 

740 SCREEN2 : A2=0 : GC=Í 

750 FOR F=0 TO NP-i 

760 IF P < F , 1 ) =0 THEN GOTO 920 

770 GC=GC+2 : IF GC=15 THEN GC=2 

780 IF GC=i6 THEN GC=3 

790 Ai=A2>: A2=A2+P <F, i >/ND*2*3. 1415926H 

800 AA=(AÍ+A2)/2 

810 CX=i 30+COS ( A A ) * < LR-SR ) 

820 CY-80-SIN (AA)*(LR-SR ) 

830 CIRCLE(CX,CY) , SR , 15, -Ai-Í E-03 , -A2 , í 

840 LY=CY-SIN<AA)*<SR+20>-5 

850 IF AS="N" THEN GOTO 920 

860 IF COS(AA) >=0THEN LX=183ELSE LX=0 

870 PRESET < LX, LY ): PR INTHi ,USING"HH.#H#"; 

< 100*P <F, 1 >/ND> ; :PR INTtti , "7." 

880 LINE (LX,LY+i0)-( LX+64 ,LY+10) , 15 
890 IF COS ( AA ) < 0 THEN LX=LX+64 
900 LINE(CX+C0S<AA)*.8*SR,CY~SIN(AA>*.8* 
SR >-(CX+COS< AA>*1 . i*SR , CY-SIN ( AA ) *1 -i*SR 
) 

910 LINE ( CX+COS <AA)*i.i*SR,CY-SIN< A A > *1 . 
1*SR >-<LX,LY+10> 

920 NEXT F 
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930 PRESET < 20 , í 80 ) 

940 PRINT#i,"F retorna ao menu 
950 AÍ=INPUTÍ<1> 

960 IF AÍ="F" THEN: RETURN 60 ELSE 930 
970 ”*#*«#t rata mento dos dados ******* 
980 PRINTíPRINT"************** CALCULAND 
0 **************" 

990 S=0 s FOR F = 0 TO ND-i 

1000 IF F=0 THEN MA=D(F) :MI=MA 

1010 IFMI >D ( F ) THEN MI=D(F) 

1020 IFMA< D < F ) THEN MA=D(F) 

1030 S=S+D < F ) : NEXT F: 

1040 ME=S/ND: Dl =ND-i : ERASEP :DIMP(NP r 2) 
1050 FOR F=0 TO Dl 

1060 IF MA-MIO0 THEN X=I NT ( ( 1 . 5+ ( D ( F ) -M 

I)*<NP-i)/< NA-MI ) ) ) -1 

1070 P(X,l)=P(X,i)+l: NEXT 

1080 M=0: W=0 

1090 FOR F=0 TO NP 

1100 IF P(M,i)<P(F r l) THEN M=F 

1110 NEXT 

1120 PM=P ( N r 1 ) s CLS 

1130 PRINT"MINIMO // MI : PR I NT"MAX IMO"MA : PR 
INT"MEDIA"hE 

1140 FOR F=0 TO NP-l: IF P(F,1)=PM THEN 
PR INT"MODA // MI + < MA-MI )/NP*(F+.5) 

1150 NEXT 

1160 DMA=0: OAR=0 

1170 FOR F=0 TO Dl 

1180 DMA=DMA+ABS(D(F)-ME) 

1190 Sí =D ( F ) -ME 
1200 0AR=VAR+S1 A 2 
1210 NEXT 

1220 PR INT"Desv i o med i o"DMA/ND 
1230 PR INT"Var i anc i a"VAR/ (ND ) 

1240 PR I NT"Desv i o padr ao" ; SOR ( OAR/ < ND ) ) 
1250 A4=INPUT4 ( 1 ) 

1260 FOR F=0 TO NP 

1270 P<F,2)=INT < .5+i74*P(F,i)/PM> 

1280 NEXT F 
1290 RETURN 


114 



1300 '#******** rotina de erro ******** 
1310 CLS : LOCATE10, 12 : PR INT // ****»***ERRO 
*********": FOR F =0 TO300: NEXT 
1330 RESUME 50 

1330 '********* copia de tela****##»*#* 
1340 IF PEEK(«HFCAF)=2THEN GOTO 50000 
1350 FOR 0=0 TO 23 s FOR 1=0 TO 39:LPRINTC 
HR%<VPEEK<I+40*Q> > ; : NEXTI : LPR INT CHRS<«H 
A) jCHRÍ (&HD) ; : NEXTQ : RETURN 
1360 DATA 16,56,124,254,56,56,56,56 
1370 DATA 8,12,254,255,254,12,8,0 
1380 DATA P,A,R,T,=, ,r,e,l,= 

50000 RETURN 


ANALISE 

O programa possui 4 blocos principais: 

* Entrada de dados 

*• Montagem do histograma 

* Gráfico em setores 

* Cópia de tela 

ENTRADA DE DADOS — linhas 150-500 

O bloco gerencia a entrada via teclado, leitura, gravação 
e alteração do conjunto de dados que estão na matriz D. A 
leitura do arquivo é feita nas linhas 230 a 280, e a gravação do 
arquivo é feita nas linhas 300 a 340. 

Os dados são gravados e lidos do cassete na seguinte 
ordem: 

ND — Número de Dados 

NP — Número de Participações 

D(f) — elementos da matriz de Dados 

A entrada dos dados via teclado é feita nas linhas de 
360-380 e tem um funcionamento bastante simples. 

As alterações são feitas a partir da linha 400, indo até a 
linha 500 onde termina o bloço. 

HISTOGRAMA — linhas de 510-700 

A tela é montada entre as linhas 520-590, e as barras do 
histograma são feitas pelo comando LINE no loop das linhas 
580-590. O restante do bloco (600-700) controlam os "SPRITES’. 
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movidos pelas teclas de controle do cursor, indicando a par- 
ticipação e a frequência relativa, além de imprimir os respec- 
tivos valores (com tabulação de SCREEN 0 — linha 670-680) no 
topo da tela. 

GRÁFICO EM SETORES — linhas de 720-950 

Os setores do gráfico em setores são montados pelo co- 
mando CIRCLE (linha 830), A variável Al indica o ângulo de 
início da partição e a variável A2, o ângulo final da partição. 
As linhas de 860 a 920 imprimem a frequência relativa das 
classes (LX e LY são as coordenadas de referência para a 
impressão). 

TRATAMENTO DOS DADOS — linhas de 980 a 1280 

As linhas de 1000 a 1030 calculam a soma dos dados e 
acham o maior dado e o menor dado, variável MA e Ml respec- 
tivamente. 

O loop das linhas 1050-1070 calcula quantos dados estão 
compreendidos em cada uma das classes colocando-os na 
primeira coluna da matriz P. e o loop das linhas 1090-1110 calcula 
qual a maior classe. 

As linhas de 1130 a 1280 calculam e apresentam as carac- 
terísticas do conjunto de dados. 

CÓPIA NA IMPRESSORA — linhas de 1340 a 1350 

Sempre que a tecla F4 é pressionada, o programa copia o 
que está na tela na impressora. Esta rotina começa na linha 
1340, mas só copia os dados que estão na SCREEN 0. Se você 
possui uma impressora gráfica e que aproveitar o potencial dela 
com este programa, realize um MERGE com a rotina CÓPIA GRÁ- 
FICA (listada na pág. 138). Para realizar as suas cópias na im- 
pressora basta pressionar F4 e uma outra tecla qualquer. 

Figura 17.2 — Histograma la) e Gráhco em Setores lb) 
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INSTRUÇÕES 

Este programa permite produzir a perspectiva de um solido 
geométrico definido pelo usuário, como uma observação real 
de um objeto. 

Ao ser chamado, ele apresenta um "menu" com as seguin- 
tes opções: 

1 ENTRAR DADOS: permite entrar as coordenadas dos 
vértices e ar respectivas arestas. O programa pede inicialmente 
o número de vértices e arestas que compõem o sólido e, em 
seguida, os seus respectivos valores. 

2. OBSERVADOR: pede o local do observador, isto é, as 
coordenadas em relação à origem da base ortogonal. A seguir, 
ele pede a distância do plano de projeção (ou plano de quadro) 
em relação à origem. 

4. VISUALIZAR: imprime a vista perspectivada na tela 
do vídeo. 

5. CORRIGIR: permite redigitar as coordenadas de um ou 
mais vértices do sólido. O número do ponto a ser corrigido é 
pedido e, em seguida, o programa pergunta se deve confirmar 
a correção. A qualquer instante pode-se mudar de ponto utili- 
zando-se as teclas "cursor para a direita" e "cursor para 
a esquerda”. 

6. SALVAR DADOS: salva em disco cu fita as informa- 
ções sobre o sólido, observador e distância do plano de quadro. 

7. LER DADOS: lê as mesmas informações do item 6 do 
disco ou fita. 

Experimente o programa para estes valores: 

Número de vértices = 5 

Número de arestas = 8 

Vértices: 
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1: 5.5.0 
2: 5, -5,0 
3: -5, -5.0 
4: -5.5,0 
5: 0.0,6 

Arestas: 

1 : 1.2 
2: 2.3 
3: 3.4 
4: 4.1 
5: 1.5 
G: 2,5 
7: 3.5 
8: 4.5 

Coordenadas do observador: 10,12,20 
Distância do plano: 0 

Se durante algum cálculo surgir a mensagem "EXCEDEU 
LIMITES DO VIDEO", iso significa que algum ponto projetado 
está (ora da tela. Nesse caso. tente reduzir o "zoom", colo- 
cando uma distância positiva para o plano de quadro. 

A digitação do programa não requer maiores cuidados. 
Para iniciar a execução digite RUN. mas após isto não digite 
outro RUN para não apagar as variáveis. Se. em algum instante, 
o programa for interrompido e você deseja preservar os variá- 
veis, digite GOTO 410. 


Fiqura 18 I — Programa PERSPECTIVAS CÔNICAS 


1.0 REM PERSPECTIVAS CÓNICAS 
20 REM MILTON MALDONADO JR . 

30 FL-0 : GOT O 41.0 
40 CLEAR : GOSUB 400 

50 CLS : INPUT "QUANTOS VERTICES ";N:INPUT 
"QUANTAS ARESTAS ";M 

60 CLS : PR INT "ENTRE AS COORDS. DOS VERTS 
< X , Y , Z ) " 

70 FOR P=í TO N:PRINT "VER TI CE ";P:INPUT 
X(P) ,Y(P> ,Z(P> :NEXT P 
80 CLS : PR INT "ENTRE ARESTAS (INICIO, FIM 

>" 
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90 FOR P=i TO MsPRINT "ARESTA ";P;:INPUT 
I(P>,J<P)s NEXT P 
100 GOTO 410 

110 CLS: INPUT "COORDS. OBSERVADOR <X,Y,Z 
- OX , OY , OZ : IF OX=0 AND OY=0 AND OZ=0 TH 
EN 110 

120 INPUT "DIST. DO PLANO PROJETANTE ;R 
: RETURN 

130 CLS:A=SGR(OX*OX+OY*OY+OZ*OZ> :D1=A~R: 
K=SQR<OX*OX+OY*OY> 

j 40 B=-OY/K :C=OX/K :D=0:E=-OX*OZ/A/K 
150 F=-OY*OZ/A/K:G=<OX«OX+OY*OY>/A/K 
160 H=OX/A» I=OY/A: J=OZ/A 

170 FOR P=1 TO N:T=(R/A-i>*A*A/<OX*(X<P> 
-OX ) +OY* < Y < P ) -OY > +OZ* <Z(P )-OZ> ) 

180 A(P)=T*(X<P) -OX ) +OX :B(P)=T#(Y(P)-OY) 
+OY :C(P>=T*<Z<P)-OZ> +OZ : D < P ) = 129+ 10* < B *A 
(P >+C#B <P >+D*C(P > ) 

190 E(P > =96-10* <E*A<P )+F*B (P )+G*C(P ) > = F( 
P)=H*A(P) + I*B(P) + J*C < P ) 

200 IF D ( P ) >255 OR E(P>>191 OR D<P><0 OR 
E ( P ) < 0 THEN 220 
210 NEXT P s FL=0 : RETURN 

220 FL=i : PR INT "EXCEDEU LIMITES DO VIDEO 
" : FOR P-l TO 1000 : NEXT P : RETURN 
230 IF FL= 1 THEN 220 

240 SCREEN 2=F0R P=i TO M : LINE < D< I < P ) > , E 
<I(P>))-<D(J(P)>rE(J(P>> ) : NEXT P:AS=INPU 
Tí (1)5 SCREEN 0 : RETURN 

250 CLS: INPUT "PONTO A CORRIGIR ( 0=RETOR 
NA) ";PSIF P<1 OR P >N THEN RETURN 
260 CLS : PR INT "PONTO ";P=PRINT "X=";X<P> 
■" Y=" ; Y < P ) ; " Z=";Z(P) 

270 PRINT:PRINT:PRINT "DESEJA CORRIGIR ( 
S , N , < r > ) " : A%=INPUT% < 1 ) s IF A*="N" THEN RE 

TURN — . 

280 IF A$=CHR 4 < 28 ) THEN P=P + 1:IF P>N THE 

N P=N 

290 IF A%=CHRS<29> THEN P=P-i:IF P<1 THE 
N P = í 

300 IF A%< >"S" AND Aí<>"s" THEN 260 
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310 PR INT : INPUT "ENTRE NOVAS COORDS <X,Y 
,Z> ";X(P),Y(P),Z(P)s GOT O 260 
320 CLS--INPUT "NOME DO ARQUIVO ";N$:GOSU 
B 470 : PR INT "CONFIRMA GRAVACAO (S,N> ?"s 
AÍ=INPUTÍ<Í):IF A5< >"S" AND A%< >"s" THEN 
RETURN 

330 IF D$="CAS : " THEN PRINT "LIGUE O GRA 
VADOR E APERTE ENTER" : A$=INPUT$ < 1 > 

340 OPEN D%+N$ FOR OUTPUT AS i 
350 PRINT Hi,M;N:FOR P=í TO M : PR INT Hi,I 
(P) ; J(P> :NEXT P:FOR P = í TO N : PR INT Hi,X( 
P) ;Y<P) ;Z(P) :NEXT P:PRINT Hl , OX ? OY ; OZ ; R : 
CLOSE í : RETURN 

360 CLS: INPUT "NOME DO ARQUIVO "jN%:GOSU 
B 470 : PR INT "CONFIRMA LEITURA <S,N> ?":A 
*=INPUTÍ<Í >:IF A%< >"S" AND AT,< >"s" THEN 
RETURN 

370 IF D5="CASs" THEN PRINT "LIGUE O GRA 
VADOR E APERTE ENTER": A$=INPUT% < 1 ) 

380 OPEN Dí+Ní FOR INPUT AS í 
390 INPUT Hi,M,N:FOR P = í TO MUNPUT Hi,I 
<P) , J(P) :NEXT P : FOR P=i TO N:INPUT Hi,X< 
P),Y<P),Z(P):NEXT PslNPUT Hl , OX , OY , OZ , R : 
CLOSE i: RETURN 

400 M-80 : N=40 : DIM X<N),Y(N>,Z<N>,A(N),B< 
N),C(N),D(N) r E(N),F(N),I(M) r J(M) s RETURN 
410 CLSsKEYOFFíSCREEN 0:COLOR 15,4,4 
420 PRINT " HHH PERSPECTIVAS CÔNICA 

S HHH":PRINT:PRINT:PRINT "OPCOES : " : PR INT 
: PR INT "DENTRAR DADOS":PRINT "2>0BSERVA 
DOR" : PR I NT "3 >CALCULAR" : PR INT "4>VISUALI 
ZAR" : PR INT "5 >CORR IGIR" : PR INT "6>SALVAR 
DADOS":PR INT "7 >LER DADOS" 

430 PRINT:PRINT:INPUT "SUA OPCAO ";A:IF 
A< 1 OR A >7 THEN 410 
440 IF A=1 THEN 40 

450 ON A GOSUB 0,110,130,230,250,320,360 
460 GOTO 410 

470 PRINT "CASSETE OU DISCO <C,D> ?":AS= 
INPUTí ( 1 ) : IF Ai="C" OR A%="c" THEN D4="C 
AS : " : RETURN 


120 



480 IF Aí< >"D" AND A%< >"d" THEN 470 
490 PRINT "QUAL DRIUE ( A , B , C , D > ?":Dí=IN 
PUT4(i):IF ( Dí < "A" OR D%>"D"> AND <D%<"a 
" OR D% >"d" ) THEN 490 ELSE DÍ=DS+" : " : RET 
URN 


ANÁLISE 

O programa inicia zerando a variável FL (de "FLAG"), que 
indica se é possível imprimir a imagem projetada, e sofre um 
desvio para a linha 410. Desta linha até a 440 é pedida a opção 
do usuário. Se a opção pedida não existir, ele reinicia o menu. 

As linhas 40 a 100 são responsáveis pela opção 1 (entrar 
dados) onde são dadas as entradas das variáveis do observador 
e a distância do plano de quadro (opção 2). 

O coração do programa situa-se nas linhas 130 a 210, etapa 
responsável pelos cálculos de geometria analítica. A projeção 
pode ser própria (observador próximo da origem) ou imprópria 
(observador muito distante). Uma vez que as coordenadas do 
observador formam um vetor posição, não se deve situar o obser- 
vador coincidentemente com a origem, pois isto levaria o pro- 
grama a usar um vetor nulo. tornando impossível determinar o 
plano de quadro. 

As linhas 220 a 240 são responsáveis pelo desenho da fi- 
gura projetada na tela de imagem. Se FL valer 0. o desenho é 
feito; se valor 1, o computador avisará que o desenho sairia 
da tela e causaria a interrupção do programa. 

Se você possui uma impressora gráfica (padrão EPSON) e 
deseja imprimir nela uma cópia da figura obtida, altere o pro- 
grama conforme a listagem 2. Uma cópia será automaticamente 
feita na impressora. 

As linhas 250 a 310 servem para se fazer, a correção das 
coordenadas de um ponto escolhido pelo usuário, desde que 
este ponto exista. 

Finalmente, as linhas 320 a 400 permitem armazenar e re- 
cuperar os dados de um sólido definido pelo usuário e as coor- 
denadas do observador. 
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INSTRUÇÕES 

Esse programa mostra na tela o calendário de qualquer 
mês, de qualquer ano compreendido entre 1583 e 2499. Ele 
mostra também os feriados móveis, tais como a Páscoa e Car- 
naval, e os feriados fixos, tais como Natal e Dia da Independência. 

A utilização do programa Calendário é bastante simples. 
Após rodá-lo, você deve entrar o ano e o mês desejados. 

O único cuidado é quanto à digitação do ano: deve conter 
os quatro algarismos e estar compreendido entre 1583 e 2499. 

Após apresentado na tela o calendário do mês e ano pedi- 
dos, a pressão da tecla "1” permite o reinicio do programa, 
para possibilitar a mudança do ano e a pressão da tecla "2" 
permite a escolha de outro mês do mesmo ano. 


Figura 19.1 — Programa CALENDÁRIO 


í 00 ' CALENDÁRIO 

1Í0 ' LUIZ TARCÍSIO DE CARYALHO JR 

í 20 ' 

1 30 CLEAR : KEYOFF : COLORIS, 4 : SCREEN0 : WIDTH 
35 

140 DATA JANE IRO, FEVEREIRO, MARCO, ABRIL, MA 
10 , JUNHO , JULHO , AGOSTO , SETEMBRO , OUTUBRO , N 
OUEMBRO, DEZEMBRO 

Í50 DIMM* (12) :FORU=iTOÍ2:READM%<U> :NEXT 
Í60 DATAterca-CARNAUAL,sexta-PAIXAO,qu i n 
ta-CORPUS CHR ISTI , i-ANO NOUO , 2Í-TIR ADENT 
ES, Í-DIA DO TRABALHO, 7-INDEP. BRASIL, Í2-N 
. SRA . AP ARECIDA , 2 -FINADOS , Í5-PR0CL . REPUBL 
ICA , 25-NAT AL 
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170 DIMF4(ii>:F0RU=iT0ii:READF%(U) :NEXT 
í 80 OPEN"GRP:"FOR OUTPUT AS ttí 
190 LOCATE7 , 1 : PR INT"CALENDAR IO PERMANEN 
TE" 

200 L0CATE2 ,6:PRINT"< í 583 A 2499) 

2Í0 L0CATE3,5:INPUT"QUAL O ANO " ? AN 
220 IF AN < 1583 OR AN > 2499 THEN COLOR 
15,8:CLS: LOCATE 10 , 1 0 : PR INT"DADO INOALI 
DO" " FORU= í TO 1000 ■ NEXT : RUN 
230 B 1=0 s IFAN/4< > AN\4 THEN 260 
240 IFAN/400=AN\400THEN BI=i:GOTO 260 
250 IF AN/100< >AN\100 THEN BI = i 
260 ND=365+B I : DIMD <ND),N(i2),M<13) 

270 IF AN > = 1 583 AND AN<1700 THEN X=22sY= 
2 : GOTO380 

280 FOR 1=17 TO 24: IF AN>=I*100 ANDAN <( 
I+i)«100 THEN J=I-16:G0T0 300 
290 NEXT I 

300 ON J GOTO 310,320,330,330,340,350,36 
0,370 

310 X=23:Y=3:GOTO380 
320 X=23:Y=4:GOTO380 
330 X=24:Y=5:GOTO380 
340 X=24:Y=6:GOTO380 
350 X=25:Y=0:GOTO380 
360 X=26:Y = i : GOT 0380 
370 X=25 : Y=1 

380 A=ANM0D19 : B=ANM0D4 : C=ANM0D7 :D=( 19*A+ 
X)MOD30:E=<2*B+4*C+6*D+Y)MOD7:P=22+D+E 
390 IF P < =31 THEN P=59+BI+P :GOTO420 
400 P=D+E-9 : IFP < =25THENP=P +B 1+90 : GOT 0420 
410 P=P+83+B I 

420 CA=P-47 : P A=P-2 : CC=P+60 
430 Di=PM0D7 : IFDi=0THENDi=7 
440 N ( 1 ) =9 -Dl : IFN ( 1 ) =8THENN ( 1 > =1 
450 N(2)=N(i)+3:IFN(2) >7THENN < 2 > =N < 2 > -7 
460 N(3)=N(2)+BI:IFN(3) >7THENN ( 3 ) =N ( 3 ) -7 
470 N(4)=N(3)+3:IFN(4> >7THENN ( 4 ) =N ( 4 ) -7 
480 N<5)=N(4)+2:IFN<5) >7THENN ( 5 > =N ( 5 ) -7 
490 N < 6 ) =N <5)+3:IFN<6) >7THENN (6>=N(6)-7 
500 N(7)=N(6) +2 : IFN ( 7 ) >7THENN <7)=N(7) -7 
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510 N(8)=N(7)+3:IFN(8) >7THENN < 8 > =N < 8 > -7 
520 N(9)=N<8)+3: IFN<9> >7THENN(9)=N(9)-7 
530 N(í0)=N(9)+2:lFN(i0) >7THENN < i 0 ) =N < í 0 

> -7 

540 N< í i >=N< i0)+3: IFN< ii ) >7THENN < 1 1 > =N < 1 
i )-7 

550 N<i2)=N<ii>+2:lFN<i2> >7THENN(12)=N<1 
2 ) -7 

560 FOR I=D1 TO ND STEP 7 : D ( I ) =12 : NEXT 

570 D(CA)=Í :D(PA)=2:D(CC)=3 

580 D(i)=4:D(íii+BI)=5:D<i2í+BI)=6:D<250 

+BI)=7:D(285+BI)=8:D(306+BI)=9:D(3í9+BI) 

=i0:D<359+BI)=íí 

590 L0CATE4, 11 SPRINT" < i A 12)" 

600 L0CATE3, 10: INPUT"QUAL O MES " ; ME 
610 IFME<iORME > 120RME< > INT ( ME ) THENCOLOR 1 
5,8:CLS:LOCATE10, 10:PRINT"DADO INVALIDO" 
:FORU=1TOÍ000: NEXT : COLOR 15,4:CLS:L0CATE7 
,1 :PRINT"CALENDARIO PERMANENTE" : L0CATE3 , 
5 : PR INT"ANO =" ? AN : GOTO590 
620 COLOR 15,1,1: SCREEN2 

630 C0L0R3:PSET< INT ( 256-8* < L.EN < M<6 < ME > >+8 
) >/2,8> , i:PRINT#i ,MS(ME> ?" DE"? AN 
640 COLOR 7 : PSET ( 0 , 24 ),i:PRINTWi," DOM 

SEG TER QUA QÜI SEX SAB " 

650 DATA0, 31, 59, 90, 120, 151, 181, 212, 243, 2 

73,304,334,365 

660 RESTORE650 

670 FORU=i TOi 3 : READM ( U ) :NEXT 
680 Q=0 : IF ME=2THEN Q=BI 
690 S=0 : IFME >2THENS=B I 

700 COLOR 14: PSET (0,40) , i:F0RU=iT0N(ME>#4 

: PR INTtti , " " ? : NEXTU 

710 FORI=M(ME) + iT OM ( ME ) +8-N ( ME ) 

720 IFD ( I +S > < >0THENCOLOR8 : PR INTtti , I-M < ME 
)?" "? :COLOR14:GOTO740 
730 PRINTHi , I-M(ME) ?" "? 

740 NEXTI 

750 W=40 : FOR J=ITOM ( ME+i ) +QSTEP7 

760 U=U+16:PSET(0,W) , 1 : P R I NTH 1 , " "?:IF 

J-M<MEXi0THENPRINT#i," "; 


124 



770 F0RK=JT0J+6 s IFK >M ( ME+Í ) +QTHENGOTO800 
780 IFD<K+S>< >0THENCOLOR8:PRINTHí ,K-M(ME 
) ; : COLOR í 4 : GOTO800 
790 PRINTttí ,K-M<ME> ; 

800 IFK-~M<MEX9THENPRINT#i r " 

8i0 NEXTK 
820 NEXTJ 

830 W=W+i6:PSET(0,W> , i : C0L0R3 : PR INT#i ,ST 
R ING% ( 32 , 223 ) ; 

840 FOR I-M ( ME ) + ÍTOM ( ME+ i ) +Q 

850 IFD < I ) >0ANDD (IX Í2THENW=W + Í 0 s PSET (30 

,U> ,í: COLOR 13: PR INT«Í,FKD(I ) ) 

860 NEXTI 

870 U=W+8 :PSET <0 r U) ,is COLOR 3 :PRINT#i,STR 
IN6® (32 , 220 ) ss 

880 PSET <22 , Í80) , i SC0L0R3* PR INTUÍ , "C i DOU 
TRO ANO / C2D0UTR0 MES" 

890 AS=INKEY4 
900 IFA%= / 'i"THENRUN 
9Í0 IFAS="2"THENG0T 0930 
920 GOT 0890 

930 COLOR 15 , 4 : SCREEN0 s L0CATE7 ,í:PRINT"CA 
LENDÁRIO PERMANENTE" 5 L0CATE3 , 5 s PR INT"ANO 
AN:GOTO590 


ANÁLISE 

O programa está inteiramente baseado no algoritmo de 
G 2 uss que se refere ao cálculo da data da Páscoa. 

Se a data da Páscoa for determinada num certo ano. sabe- 
remos calcular as datas de todos os outros feriados móveis, 
bem como em que dia da semana caem todos os dias desse 
ano, uma vez que a Páscoa sempre acontece num domingo. 

As linhas 130 a 170 definem as matrizes que conterão os 
nomes dos meses (MS) e os nomes dos feriados (F$). 

As linhas 190 a 210 permitem a entrada do ano desejado. 
Na linha 220 verifica-se se a entrada é válida, caso contrário, 
o programa "roda” novamente. 
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As linhas 230 a 250 verificam se o ano pedido é bissexto. 
Se for, é atribuído variável BI o valor 1. 

A linha 260 dimensiona uma matriz (ND) cujos elementos 
deverão corresponder aos dias do ano. Se a qualquer um desses 
elementos for atribuído um valor diferente de zero, significa 
que o dia a ele correspondente deve ser um feriado ou um 
domingo. 

Além disso, são também dimensionadas duas outras ma- 
trizes: uma que conterá a informação sobre o dia da semana em 
que cai o primeiro dia de cada mês do ano (N(12)), e outra que 
guardará o número de dias decorridos desde o início do ano 
até o primeiro dia de cada mês (M(13)). 

As linhas 270 a 410 contêm o algoritmo de Gauss e deter- 
minam o dia do ano em que cai a Páscoa (P). A seguir, na linha 
420, são calculados os dias que correspondem aos demais feria- 
dos móveis: Terça-feira de Carnaval (CA), Paixão (PA) e Corpus 
Christi (CC). 

As linhas 430 a 550 cálculam o primeiro dia de cada mês e 
as de número 560 a 580 calculam os feriados e domingos. 

Finalmente, as linhas 90 a 610 permitem a entrada do mês 
e as demais "imprimem” na SCREEN 2 o calendário do mês 
pedido (figura 19.2). 


Figura 19 2 — Folhinha do més 


DEZEMBRO DE 1987 


OM 

SEG 

TER 
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QUI 

SEX 

SAB 
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31 




25 -NAT AL 


C 1 3 OUTRO ANO /• C2 30UTR0 MES 
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UTILITÁRIOS 



Os usuários mais experientes, que dominam com maestria 
a arte da programação, normalmente se utilizam de rotinas que 
os ajudam na elaboração e concretização de outros programas. 

Esses "meta-programas" são chamados de UTILITÁRIOS e, 
apesar de não ser estritamente necessário, normalmente, são 
codificados em linguagem de máquina para serem mais rápidos, 
mais curtos e mais eficazes. 

Nas próximas páginas estaremos "fechando" este segundo 
volume do COLEÇÃO DE PROGRAMAS com chave de ouro: 
6 programas utilitários de alto-nível, desenvolvidos para nosso 
próprio uso e explicados em seus aspectos mais importantes. 

Três deles se destinam à otimização do uso da impressora: 
um permite obter cópias de telas gráficas e outros dois geram 
padrões pré-definidos e ampliados. Lembre-se de alterar o ende- 
reço &HF417 de acordo com a impressora que será usada. Para- 
doxalmente (pasmem!) os MSX nacionais em suas versões mais 
recentes NÃO conectam de forma imediata com impressoras 
padrão MSX! Veja no manual do seu micro, o valor a ser inse- 
rido no endereço &HF417 (0 ou 1) se houver algum problema 
com os programas que usam impressora. 

Entre os outros programas temos um "vasculhador de 
bytes”, um "abridor" de programas em fita e um setorizador 
de tela para a SCREEN 1. 
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DUMP DE MEMÓRIA 


7F 

05 

0 3 

D 7 

07 

03 

OD 

07 

048 

0 3 

EC 

07 

03 

DF 

07 

03 

1 5 

0 5 0 

08 

C 3 

0 F 

0 7 

03 

44 

07 

03 

058 

4 F 

08 

03 

F 7 

0 7 

0 0 

0 3 

98 

06 0 

1 3 

0 3 

A 8 

0 6 

0 3 

0 E 

0 5 

03 

068 

3 8 

05 

03 

D 2 

05 

0 3 

1 F 

06 

0 7 0 

C 3 

94 

05 

0 3 

B 4 

05 

03 

02 

078 


INSTRUÇÕES 

Muitas vezes precisamos analisar uma região da memória 
para saber porquê certas coisas acontecem de uma certa ma- 
neira. Os programas que mostram os dados gravados na me- 
mória são chamados de programas DUMP. e é justamente isso 
o que faz este nosso programa: mostra uma região da memória 
do micro no formato hexadecimal e seus respectivos caracteres. 

O programa pergunta qual o endereço da memória que será 
analisado, devendo este ser dado em decimal ou então em he- 
xadecimal, desde que precedido por &H. A partir daí são mos- 
trados 128 bytes de memória e novamente é pedido um outro 
endereço. Neste ponto pode-se digitar apenas RETURN que se- 
rão mostrados os 128 bytes seguintes. 

Figura 20.1 — Programa DUMP de MEMÓRIA 

1000 REM DUMP DE MEMÓRIA 
1010 REM Rubens Jr . JUN/86 
1020 REM 

1030 SCREEN 0 : WIDTH 40 : KEY OFF 
1040 COLOR 15,1,1 : CLS 
1050 INPUT "Endereço ";ED 


1060 LOCATE 0,0 

1070 PRINT "Ender hex"? 

1080 PRINT " ASCII " 

1090 PRINT 


1100 FOR ED = ED TO ED + 120 STEP 8 
1110 EX% = R IGHT% ( "0000"+HEX4 ( ED ) ,4) 
1120 PRINT EXÍ;": 

1130 FOR 17. = 0 TO 7 
1140 BYX = PEEK ( ED + IX) 
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1 í 50 BXS = R IGHT4 < "00 ,, +HEX$ <BY%) ,2) 
1 1 60 PRINT BX4 ; " 

11 70 NEXT IV. 
í í 80 PRINT " 

I 190 FOR 1% = 0 TO 7 
i. 200 ACX = PEEK < ED + 1%) 

Í2Í0 IF ACZ > 31 THEN 1240 

1220 ACX = AC% + 64 

1230 PRINT CHRÍ(i); 

1240 PRINT CHR4 < AC% ) ; 

1250 NEXT 1% 

1260 PRINT 
1270 NEXT ED 
1280 PRINT 
1290 GOTO 1050 


ANÁLISE 

O programa tem apenas duas partes principais: a que mos- 
tra osdados em hexadecimal! (linhas 1150 a 1190) e a que mos- 
tra os caracteres (linhas 1210 a 1270). As demais linhas apenas 
completam o programa, não tendo portanto nada de especial 
ou de difícil para ser entendido. Mesmo assim, vale a pena 
observar as linhas 1130 e 1170 que ajustam um valor em hexa 
para terem sempre quatro ou dois dígitos respectivamente, in- 
dependentemente do seu valor. Outro macete também está nas 
linhas 1240 a 1260 que mostram os caracteres de código me- 
nores que 32. Como já comentamos no Coleção de Programas 
vol. I, os caracteres de código menores que 32 só podem ser 
impressos após um PRINT CHRS(1) e com seus códigos acres- 
cidos de 64 unidades. 
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GIRO PARCIAL DE TELA 



INSTRUÇÕES 

Este programa tem como objetivo rolar algumas linhas da 
SCREEN 1 para baixo, facilitando a digitação de dados em 
tabelas. 

Para se conseguir isso, foi utilizada uma sub-rotina em 
Linguagem de Máquina para se obter uma alta velocidade de 
execução (se comparada com outras linguagens de alto nível). 

Uma vez carregada esta sub-rotina, é necessário informar 
dois parâmetros antes dela ser executada. Estes dois parâme- 
tros são respectivamente a linha superior e a linha inferior que 
limitam a região do video que será rolada. A linha inferior será 
perdida e a linha superior será preenchida com brancos. 

Tome cuidado ao informar estas duas linhas, pois a sub- 
rotina não verifica se são válidas ou não, e se forem dados valo- 
res incorretos o micro pode ficar sem controle!!! 

A linha superior é informada pelo endereço &HDA00 e a 
linha inferior pelo endereço&HDAOI . O início desta sub-rotina 
é em &HDA02. 

Figura 21 .1 — Programa GIRO PARCIAL DA SCREEN 1 


1000 REM GIRO PARCIAL DA SCREEN i 
1010 REM Rubens Jr . JUN/S6 

1020 REM 

1030 SCREEN 1 : CLEAR «H200,«HCFFF 

1040 DEFUSR0=&HDA02 

1050 FOR F = 0 TO 79 

1060 READ A*:A=UAL("&H"+Ai> 

1070 POKE &HDA00+F, A:NEXT F 

1080 INPUT"Entre a linha i n i c i al " ; LI 

1090 INPUT"Entre a linha final";LF 
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1 100 POKE &HDA00 , L I : POKE &HDA01 , LF' 
ÍÜ0 LOCATE 0 , LI 

lí 20 INPUT"Entre uma mensagem"; Aí 
1130 A=USR ( 0 > 

1140 GOTO 1110 

1150 DATA 00,00,21 ,00,18,11 ,4F,DA 
1160 DATA 01 ,00, 03, CD, 59,00, 3A, 01 
1170 DATA DA, 6F, 26, 00, 29, 29, 29, 29 
1180 DATA 29, 01, 4F, DA, 0B, 09, EB, 21 
1190 DATA 20,00, 19, EB ,3A, 00, DA, 47 
1200 DATA 3 A ,0i,DA,90,E5,6F, 26 ,00 
1210 DATA 29, 29, 29, 29,29,44,40, Ei 
1220 DATA ED , B8 , 23 ,06,20, 36 ,20,23 
1230 DATA 10, FB, 21, 4F, DA, 11, 00, 18 
1240 DATA 01 ,00, 03, CD, 5C, 00, C9, 00 


ANÁLISE 

A sub-rotina em si está nas linhas DATA de 1150 a 1240. 

As linhas de 1030 a 1070 apenas a carrega na memória dc 
micro e devem ser as primeiras linhas do programa ondé esta 
sub-rotina será usada devido à presença do comando CLEAR 
na linha 1030 que é fundamenta! para o seu perfeito funcio- 
namento. 

As linhas de 1080 a 1140 são apenas um exemplo de como 
usar esta sub-rotina e o efeito que ela produz, devendo ser 
substituídas pelo verdadeiro programa que a utilizará. 
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INSTRUÇÕES 


Este programa imprime os caracteres com tamanho de 
16 por 16 pontos utilizando o modo gráfico da impressora, fun- 
cionando portanto apenas se você possue uma impressora 
gráfica e esta entrar no modo gráfico segundo o padrão EPSON. 

Pode-se imprimir qualquer caractere, inclusive os gráficos. 
Cada caracter tem seu formato pesquisado na ROM e expandido 
dos 8 X 8 para 16 X 16. 

Pelo fato dos micros MSX interpretarem certos caracteres 
quando eles sâo enviados para a impressora, foi utilizada uma 
pequena sub-rotina em Linguagem de Máquina para contornar 
tal inconveniente. 

Figura 22.1 — Programa CARACTERES 16 x 16 

1000 REM CARACTERES 16 X 16 
1010 REM 

1020 REM Rubens Jr . JUN/86 

1030 REM 

1040 CLEAR 1000 r &HBFFF : POKE &HF417,i 
1050 DATA 3E,00,C3,A5, 00 
1060 FOR IX = 0 TO 4 
1070 READ Aí 

10C0 POKE «HC000 + IX , UAL < ,, &H /, + Aí ) 

1090 NEXT IX 

1100 DEFUSR0 = &HC000 

1110 ET = PEEK ( 4 ) + 256 * PEEK<5) 

1120 REM 
1130 TXÍ = "" 

1140 INPJT "O que devo imprimir ";TXÍ 
1150 IF TXÍ = "" THEN CLS : END 
1160 TMX = 0 
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11 70 FOR IX = i TO LEN(TXÍ) 
í í 80 XX = ASC <MID$(TX%,IX,1) ) 

1190 IF XX O 1 THEN TMX = TMX + 16 

1200 NEXT IX 

1210 HIX = TMX \ 256 

1220 LOX = TMX MOD 256 

1230 LPRINT CHR % < 27 > ; "A" ? CHR % ( 8 > ? 

1240 REM 

1250 FOR IX * 0 TO 1 
1260 LPRINT CHR%<27> ;"K"; 

1270 POKE &HC001 , LOX 
1280 X = USR0 ( 0 ) 

1290 POKE &HC001 , HIX 
1300 X = USR 0(0) 

1310 LTX = 1 

1320 ACX ■ ASC < MIDS (TX$,LTX,1>> 

1330 IF ACX O 1 THEN 1350 

1340 ACX-ASC < MID% ( TX% , LTX+i , 1 ) ) -64 

1350 FOR COX = 0 TO 7 

1360 AGX = 0 

1370 FOR LIX = 0 TO 3 

1380 ED = 8*ACX+ET+4*IX+LIX 

1390 BYX = PEEK(ED) 

j 400 BYX = BYX AND ( 128/ < 2 A C0X ) ) 

1410 IF BYX THEN BYX = 1 

1420 BTX = 128/ (4 A LIX) 

1430 BTX = BTX+ ( BTX/2 > 

iAA<d AGX = AGX+ < B YX*BTX ) 

1450 NEXT LIX 

1460 POKE &HC001 r AGX 

1470 XX = USR0 ( 0 ) 

1480 XX = USR0< 0 ) 

1490 NEXT COX 

í 500 ACX = ASC < MIDI < TX4 ,LTX,i> ) 

1510 IF ACX = 1 THEN LTX = LTX+i 
1520 LTX = LTX+i 

1530 IF LTX <= LEN<TXS> THEN GOTO 1320 
1540 LPRINT 
1550 NEXT IX 
1560 GOTO 1140 
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ANÁLISE 


No início do programa é carregada a sub-rotina em Lingua- 
gem de Máquina como normalmente é feito através dos coman- 
dos READ e DATA. 

O texto a ser impresso é pedido nas linhas 1130 a 1150. 
onde foi usado um pequeno truque para poder se encerrar o 
programa apenas teclando RETURN. Com o texto já digitado, 
é calculado quantos caracteres serão enviados impressora nas 
linhas 1160 a 1220. 

Na linha 1230 a impressora é ajustada para pular de 8 em 
8 pontos ao término de cada linha. 

Nas demais linhas são enviados os caracteres um a um, 
sendo enviado primeiramente a metade superior e depois a me- 
tade inferior de cada caractere, já que não é possível imprimir 
16 pontos de uma só vez. 

Por ser necessário rodar a matriz de 8 X 8 pontos da ROM 
para 16 X 16 o programa faz certos cálculos um tanto quanto 
complicados, fazendo sua execução ficar um tanto lenta. 


Figura 22.2 — O caractere » em sua tcrma 3 x 3 e 16 x 16 


16 x 16 


8 x 8 
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CARACTERES GIGANTES 



INSTRUÇÕES 

Este programa imprime os caracteres com tamanho de 
8 por 8 pontos, onde cada ponto tem seu formato definido por 
você. Se você não possuir uma impressora gráfica padrão 
EPSON, infelizmente não poderá ver este programa ser executa- 
do com toda a sua potencialidade, mas poderá ter uma idéia do 
que ele faz utilizando' o video. 

Figura 23.1 — Programa CARACTERES GIGANTES 

1000 REM Caracteres Gigantes 
1010 REM Rubens Jr . JUN/86 
1020 REM 

1030 REM definição do caractere 

1040 DATA 00111100 

1050 DATA 01111010 

1060 DATA 11011111 

1070 DATA 11011111 

1080 DATA 11100111 

1090 DATA iliiiiii 

1100 DATA 01111110 

1110 DATA 00111100 

1120 A*="" = POKE &HF417,1 

1130 FOR F=i TO 8 

1140 READ BSsAS^Al+CHRSCVALt^b^+BÍ) ) 
1150 NEXT F 

1160 REM in ic ial izacao da impressora 
1170 BR%=CHR% ( 27 ) + ,/ K"+CHR% ( 8 ) +CHRÍ6 < 0 > +ST 
R INGfB (8,0) 

1180 PR4=CHRí (27)+ ,, K"+CHR4<8)+CHR5(0)+A4 
1190 REM impressão da mensagem 
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1200 OPEN "lpts" FOR OUTPUT AS Mi 
Í2Í0 PRINT Ui, CHRl < 27) ; CHR4 ( 65 ) j CHR% < 7 ) 
1220 ET = PEEK < 4 ) + 256 * PEEK<5> 

1230 INPUT "Qual a mensagem ";CP$ 

1240 FOR RU% = O TO 7 

1250 FOR IX = 1 TO LEN ( CP4 ) 

1260 AC% = ASC<MIDí (CPS, IX, 1 ) ) 

1270 IF AC% <> 1 THEN 1300 

1280 IX = IX + i 

1290 A C7. = ASC (MIDí(CP%,IZ,i) ) - 64 

1300 BT5 = BIN%<PEEK<AC%«8+ET+RW%> ) 

1310 BTÍ = RIGHT%("0000000"+BT4 ,8) 

1320 FOR JX = 1 TO 8 

1330 X* = MID% < B T% , JX , 1 ) 

1340 IF XS = "0" THEN PRINT Mi , BR$ ; 

1350 IF Xí = "i" THEN PRINT Mi,PRí ; 

1360 NEXT JX 

1370 NEXT IX 
1380 PRINT Mi," " 

1390 NEXT RtíX 
1400 GOTO 1230 
ANÁLISE 


No início do programa sào definidos duas variáveis princi- 
pais. BRS e PRS que são os formatos dos pontos apagados e 
acesos. 

O formato de cada caractere é pesquisado na própria ROM 
do micro. 

Paraque o programa ficasse bem flexível, foi utilizado um 
arquivo de saída em vez de se utilizar os comandos próprios 
para a impressora. Assim, se você não possuir uma, elimine 
as linhas de 1030 a 1 1SO e a linha 1210 também. Insira em segui- 
da as seguintes linhas: 


1030 B.RS = " " 

1040 PR$ = 

E modifique também a linha 1200 para: 

1200 OPEN"CRT:" FOR OUTPUT AS Ml 

Estas modificações visam o uso do vídeo em vez da im- 
pressora. 
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O MSX é um microcomputador com excelentes recursos 
gráficos. Consequentemente existe uma grande quantidade de 
usuários que o utilizam para fazer desenhos, trabalhando prin- 
cipalmente na SCREEN 2. 

Para estes usuários, desenvolvemos uma sub-rotina que 
copia a SCREEN 2 na impressora, bit a bit. Para tanto, é neces- 
sário uma impressora que tenha recursos gráficos. O programa 
a seguir funciona, por exemplo, numa Mônica da Elebra, que 
entra no modo gráfico segundo o padrão EPSON. 

Digite a sub-rotina que vai da linha 50000 à 50200. Se você 
tiver um disk-drive trabalhando com o DISK-BASIC. grave-a com 
o comando: 


SAVE"COPGRA.ASC",A 
Para gravá-la em cassete, comande: 

SAVE"CAS s COPGRA" 

Desta forma a rotina fica armazenada em ASC. permitia 
sua anexação ao programa que gera o desenho através do 
MERGE. 

Para experimentar seu funcionamento, digite o programi- 
nha a seguir: 

Figura 24.1 — Teste da Cópia Grálica 

Í0 CP=í5sCT=8:C0L0R CT,CP:SCREEN 2 
20 CIRCLE < 128,96) ,80, CT:PAINT< í 28,96 > ,CT 
30 FOR 1=0 TO 255 : PRESET < I , 96 > ! NEXT I 
40 GOSUB 50000 :END 
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Note que foi usado CP = 15 (cor do papel = branco) CT = 8 
(Cor de Tinta = vermelho) para a execução do desenho. 

No caso de se utilizarem outras cores, é necessário se 
alterar a linha 50000 da sub-rotina, atribuindo os novos valores 
a CP e CT. 

Anexe a sub-rotina gravada ao programa digitado no com- 
putador com o comando: 

MERGE "COPGRA" 

Conecte sua impressora, posicione o papel e comande: 

RUN 

Agora é só dar asas à imaginação criando desenhos na 
SCREEN 2, registrando-os no papel. 


Figura 24.2 — Programa COPIA GRAFICA 


50000 POKE «HF4i7,i:CP=i5:CT=8 

50010 DATA 3E , 00 , CD , A5 , 00 , C9 

50020 FOR I = 0 TO 5 s READ A%:POKE 51000! 

+I,OAL("«H"+A%) :NEXT I :DEFUSR0=5i000 ! 

50030 LPRINT CHR%<27) ;CHR4<65) ;CHRS<8> 

50040 FOR C=0 TO 31 

50050 LPRINT CHRÍ ( 27 ) ; CHRí < 75 ) ; CHRS < 192 ) 
;CHRÍ <0 > ; 

50060 FOR L=23 TO 0 STEP -1 
50070 FOR X=7 TO 0 STEP -1 
50080 U=OPEEK ( < C *8+256 *L > +X ) 

50090 V=YPEEK ( <C*8+256«L>+X+8i92> 

50100 IF O MOD 16 =CT THEN U=255 
50110 IF 0\16=CP THEN U=0 
50120 POKE 51001 ! ,U 
50130 Z=USR0 ( 0 ) 

50140 NEXT X 
50150 NEXT L 
50160 LPRINT CHRí ( 10 ) ? 

50170 NEXT C 

50180 LPRINT CHRÍ(27) yCHRÍ (65) ;CHRÍ( 13) 
50190 LPRINT CHR% < 27 > ; CHR4 ( 81 ) ; CHR5 ( 39 ) 
50200 RETURN 
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ANÁLISE 

A linha 50000 define quais as cores utilizadas para a tinta 
(CT) e o papel (CP). A. instrução: 

POKE &HF417 , i 

só é necessária no HOTBIT ou no EXPERT versão 1.1. pois tira 
o computador no modo ABNT, permitindo que ele comande a 
MÓNICA segundo o padrão EPSON. 

As linhas 50010 e 50020 inserem um curto programa em 
linguagem de máquina a partir do endereço 51000 da RAM. 
Este programinha será chamado pela linha 50130 quando for 
necessário se enviar um byte para a impressora. 

A linha 50030 regula o avanço de papel da impressora de 
8 em 8 pontos de maneira que cada "tira" gráfica seja impressa 
imediatamente abaixo da anterior. 

As linhas de 50040 a 50170 fazem a leitura da VRAM e 
transmitem as informações obtidas à impressora. 

A linha 50180 recoloca o avanço do papel da impressora 
em seu valor normal (13) e a linha 50190 regula a largura da 
impressão em 40 colunas. Isto é conveniente para se tirarem 
listagens com LLIST pois seu aspecto no papel ficará muito 
parecido com o da tela na SCREEN 0. permitindo uma melhor 
comparação. Aliás, todas as listagens deste volume foram ti- 
rads segundo este padrão. 

Como se trata de uma sub-rotina. a última linha (50200) nào 
podia deixar de conter um RETURN. 

Para quem quiser os detalhes de como o "miolo" desta 
rotina faz a leitura da VRAM. aconselhamos a leitura do "APRO- 
FUNDANDO-SE NA MSX" desta mesma editora. 
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MONSIEUR LEFITTA 

O 


INSTRUÇÕES 


Muitas vezes queremos saber em quais endereços de 
memória um programa em Linguagem de Máquina é carregado, 
e com os comandos que o BASIC oferece não é possível des- 
cobri-los. 


O programa apresentado a seguir lê uma parte de um pro- 
grama gravado em fita e mostra seu nome, de que tipo ele é 
(Linguagem de Máquina. BASIC ou ARQUIVO) e, se ele estiver 
em Linguagem de Máquina, mostra também seus endereços de 
início, fim e de execução. 

Para conseguir isso. foi usada uma pequena sub-rotina em 
Linguagem de Máquina que utiliza algumas rotinas do próprio 
BIOS do MSX. 


Todos os dados gravados em fita cassete, sejam arquivos 
ou programas de qualquer tipo, tem um "cabeçalho" inicial, onde 
reside o nome e o tipo do programa. Logo em seguida, vem um 
outro bloco de dados contendo alguns parâmetros e só depois 
está o programa propriamente dito. 

Figura 25.1 — Programa MONSIEUR LEFITTA 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 


REM LEITOR DE CABECALHO DE FITA 
REM 

REM Rubens Jr . JUN/86 

CLEAR 200 , &HBFFF 
DATA 3E ,10, 32 , 3 A , C0 , 18 r 05 , 3E 
DATA 06 , 32 , 3 A , C0 , 3E , 02 , 32 ,63 
DATA F6, 21,00,00, 22, F8,F7, CD 
DATA Ei,00,38,iA,2i,3B,C0,3A 
DATA 3 A , C0 , 47 , E5 , C5 , CD , E4 , 00 
DATA Cl , E 1 , 38 , 0A , 77 , 23 , 1 0 , F3 
DATA 2i,FF,FF,22,F8,F7, CD , E7 
DATA 00, C9, 00, 00, 00, 00, 00, 00 
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í í 20 FOR I = &HC000 TO &HC03A 
1130 READ X% 
í í 40 POKE I,VAL<"SH"+X4> 
í í 50 NEXT I 

1160 DEFUSR0=&HC000 : DEFUSR 1=«HC007 
í i 70 DEF FNP(X>=PEEK(X>+256*PEEK(X+i> 
ii80 APÍ - CHR % < 34 ) 

i í 90 SCREEN 0 : WIDTH 40 : COLOR 15,1 

í 200 KEY OFF : CLS 

í 210 LOCATE 11,0,0 

1220 PRINT "LEITOR DE CABECALHO" 

1230 LOCATE 11,1 

1240 PRINT "===================" 

1250 LOCATE 0,5 

1260 PRINT "Prepare o gravador e tecle 

< RETURN > "p 

1270 X% = INPUTi(l) 

1280 LOCATE 0,5 

1290 PRINT "Aguarde, Lendo o nome do pro 
grama. " J 

1300 IF USR ( 0 ) = 0 THEN 1770 
1310 LOCATE 0,5 
1320 PRINT SPC < 37 ) ; 

1330 LOCATE 0,4 

1340 PRINT "Programa ... - " ? 

1350 NM<6 = "" 

1360 FOR I = &HC045 TO «HC04A 
1370 NM% = NM% + CHRS ( PEEK < I ) > 

1380 NEXT I 
1390 PRINT NMS 
1400 LOCATE 0,6 

1410 PRINT "Formato : "f 

1420 TP ■ PEEK < ÃHC03B ) 

1430 IF TP = &HD0 THEN 1470 

1440 IF TP = «HD3 THEN 1730 

1450 IF TP = &HEA THEN 1800 

1460 GOTO 1840 
1470 REM FORMATO BLOAD 
1480 PRINT "BINÁRIO" 

1490 LOCATE 0,9 

1500 PRINT "Aguarde, lendo dados iniciai 
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1510 IF USR 1(0) = 0 THEN 1770 
1520 LOCATE 0,9 
1530 PRINT SPC < 29 ) ; 

1540 LOCATE 0,8 

1550 PRINT "Inicio : &H"; 

1560 PRINT HEX4 < FNP ( &HC03B ) ) 

1570 PRINT 

1580 PRINT "Fim : &H"; 

1590 PRINT HEX$ ( FNP ( &HC03D ) ) 

1600 PRINT 

1610 PRINT "Execucao ... : 8H"; 

1620 PRINT HEX% ( FNP ( &HC03F ) ) 

1630 PRINT : PRINT 

1640 PRINT "Para copiar o programa : " 
1650 PRINT 

1660 PRINT "BLOAD " ; APS ; "CAS : " ; AP* 

1670 PRINT s PRINT 

1680 PRINT "BSAVE " ; APS ; "CAS s " ; NM$ ; APS j " 

r r 

1690 PRINT "&H" ; HEXÍ ( FNP ( &HC03B 
1700 PRINT "«H";HEX5(FNP<«HC03D) ) 

1710 PRINT "&H" ; HEX% ( FNP ( &HC03F ) ) 

1720 END 

1730 REM FORMATO CLOAD 
1740 PRINT "BASIC" 

1750 PRINT : PRINT 
1760 END 

1770 LOCATE 0,20 

1780 PRINT "# Erro durante a leitura *" 
1790 END 

1800 REM FORMATO ARQUIOO 
1810 PRINT "BASIC" 

1820 PRINT : PRINT 
1830 END 

1840 REM FORMATO NAO PADRAO 
1850 PRINT "NAO PADRAO" 

1860 PRINT : PRINT 
1870 END 
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ANÁLISE 

0 prográma em Linguagem de Máquina está armazenado 
nas linhas DATA (1040 a 1110) como já é de costume. Após a 
leitura do primeiro bloco de dados, é mostrado o nome do pro- 
grama (linhas 1190 a 1390). Dependendo do que foi lido da fita, 
o programa desvia para rotinas que mostram o tipo do progra- 
ma lido. 

Quando o programa lido estiver em Linguagem de Máqui- 
na, serão mostradas duas linhas, uma com o comando BLOAD 
e a outra com o comando BSAVE. Isso serve para facilitar o 
trabalho de cópia dos programas de um fita para outra, bas- 
tando apenas posicionar o cursor nestas linhas e téclar 
(RETURN). 

Vamos ver uma situação realística. Suponha que um de 
seus amigos tenha um MSX e possua uma fita com o programa 
THEZEUS (uma espécie de labirinto, com armadilhas, princesas, 
robôs. etc...). Se você quiser tirar uma cópia dele numa outra 
fita. proceda como segue: 

1) Digite o programa Monsieur Lefitta. 

2) Prepare o gravador com a fita do seu amigo. 

3) Tecle F5 para executar o Monsieur Lefitta. O programa 
pedirá que você coloque o gravador para funcionar (com 
o PLAY) e que digite RETURN. A seguir, serão apresen- 
tadas na tela algumas informações indicando que o pro- 
grama está gravado com o nome TH e em Linguagem 
de Máquina IBINARIO). Seu endereço inicial é &H8000, 
seu endereço final é &HBFFF e seu ponto de execução é 
SH8023. 

4) Mova o cursor até a linha com o BLOAD "CAS": pre- 
pare o gravador novamente (retornando a fita ao seu iní- 
cio e pressionando PLAY) e digite RETURN. 

5) Após o "Ok" surgir na tela. o cursor estará sobre a linha 
com o BSAVE. Coloque, então, a sua fita no gravador e 
posicione-a de modo que a parte inicial sem material 
magnético não seja usada. 

6) Pressione PLAY e REC (ou a tecla SAVE, no DATA 
CORDER) e digite RETURN. Com isso sua fita estará 
recebendo o programa THEZEUS! 

7) Se você tentar copiar um programa muito longo, poderá 
não caber na memória. Nesse caso. antes de comandar 
BLOAD, apague o Lefitta e comande NEW. 
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Se você quiser receber gratuitamente informações sobre 
nossas pub I i cações. preencha o cupom abaixo (ou uma có- 
pia dele) e envie-o para nossa caixa postal. 
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